diff --git a/driver/src/cosp2_test.f90 b/driver/src/cosp2_test.f90 index 36e2cb76a8..0069fa42e3 100755 --- a/driver/src/cosp2_test.f90 +++ b/driver/src/cosp2_test.f90 @@ -996,6 +996,7 @@ subroutine construct_cospIN(npoints,ncolumns,nlevels,y) y%ss_alb(npoints, ncolumns,nlevels)) endif + allocate (y%rcfg_cloudsat) end subroutine construct_cospIN diff --git a/src/cosp.F90 b/src/cosp.F90 index 8d522708c1..b172ae1278 100755 --- a/src/cosp.F90 +++ b/src/cosp.F90 @@ -168,7 +168,7 @@ MODULE MOD_COSP tautot_S_liq, & ! Parasol Liquid water optical thickness, from TOA to SFC tautot_S_ice, & ! Parasol Ice water optical thickness, from TOA to SFC fracPrecipIce ! Fraction of precipitation which is frozen (1). - type(radar_cfg) :: & + type(radar_cfg), allocatable :: & rcfg_cloudsat ! Radar configuration information (CLOUDSAT) end type cosp_optical_inputs