Skip to content

Commit 2deb419

Browse files
committed
Make rcfg_cloudsat a HEAP variable
1 parent 9d910ac commit 2deb419

File tree

2 files changed

+2
-1
lines changed

2 files changed

+2
-1
lines changed

driver/src/cosp2_test.f90

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -996,6 +996,7 @@ subroutine construct_cospIN(npoints,ncolumns,nlevels,y)
996996
y%ss_alb(npoints, ncolumns,nlevels))
997997
endif
998998

999+
allocate (y%rcfg_cloudsat)
9991000

10001001
end subroutine construct_cospIN
10011002

src/cosp.F90

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -166,7 +166,7 @@ MODULE MOD_COSP
166166
tautot_S_liq, & ! Parasol Liquid water optical thickness, from TOA to SFC
167167
tautot_S_ice, & ! Parasol Ice water optical thickness, from TOA to SFC
168168
fracPrecipIce ! Fraction of precipitation which is frozen (1).
169-
type(radar_cfg) :: &
169+
type(radar_cfg), allocatable :: &
170170
rcfg_cloudsat ! Radar configuration information (CLOUDSAT)
171171
end type cosp_optical_inputs
172172

0 commit comments

Comments
 (0)