@@ -76,6 +76,7 @@ module CCPP_typedefs
76
76
real (kind= kind_phys), pointer :: cld1d(:) = > null () ! <
77
77
real (kind= kind_phys), pointer :: clouds(:,:,:) = > null () ! <
78
78
real (kind= kind_phys), pointer :: clw(:,:,:) = > null () ! <
79
+ real (kind= kind_phys), pointer :: dclw(:,:,:) = > null () ! <
79
80
real (kind= kind_phys), pointer :: clx(:,:) = > null () ! <
80
81
real (kind= kind_phys), pointer :: cmm_ice(:) = > null () ! <
81
82
real (kind= kind_phys), pointer :: cmm_land(:) = > null () ! <
@@ -478,6 +479,7 @@ subroutine gfs_interstitial_create (Interstitial, IM, Model)
478
479
allocate (Interstitial% cld1d (IM))
479
480
allocate (Interstitial% clouds (IM,Model% levr+ LTP,NF_CLDS))
480
481
allocate (Interstitial% clw (IM,Model% levs,Interstitial% nn))
482
+ allocate (Interstitial% dclw (IM,Model% levs,Interstitial% nn))
481
483
allocate (Interstitial% clx (IM,4 ))
482
484
allocate (Interstitial% cmm_ice (IM))
483
485
allocate (Interstitial% cmm_land (IM))
@@ -1157,6 +1159,7 @@ subroutine gfs_interstitial_phys_reset (Interstitial, Model)
1157
1159
Interstitial% cldf = clear_val
1158
1160
Interstitial% clw = clear_val
1159
1161
Interstitial% clw(:,:,2 ) = - 999.9
1162
+ Interstitial% dclw = clear_val
1160
1163
Interstitial% clx = clear_val
1161
1164
Interstitial% cmm_ice = Model% huge
1162
1165
Interstitial% cmm_land = Model% huge
0 commit comments