Merge pull request #99 from bartgol/bartgol/fix-cosp_optical_inputs

Make rcfg_cloudsat a HEAP variable Merging because the the errors are the same as the differences between v003 and v004 KGOs of the intel compilers, fixed in PR #100.
CFMIP · Sep 17, 2024 · 342aa2c · 342aa2c
2 parents 3fefa6c + 2deb419
commit 342aa2c
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 1 deletion.
diff --git 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
@@ -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
-Original file line number
+Diff line change
@@ Expand Up / @@ -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
@@ Expand Down @@