From 2deb41975faa4f5eacfc8b8f12b85acf6583d407 Mon Sep 17 00:00:00 2001 From: Luca Bertagna Date: Thu, 5 Sep 2024 15:06:20 -0600 Subject: [PATCH] Make rcfg_cloudsat a HEAP variable --- driver/src/cosp2_test.f90 | 1 + src/cosp.F90 | 2 +- 2 files changed, 2 insertions(+), 1 deletion(-) diff --git a/driver/src/cosp2_test.f90 b/driver/src/cosp2_test.f90 index 93a63c1b35..477f289d13 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 8594451859..92162f68e1 100755 --- a/src/cosp.F90 +++ b/src/cosp.F90 @@ -166,7 +166,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