Update GFS_layer/GFS_typedefs.F90 removing duplicate allocate

Co-authored-by: Spencer Clark <[email protected]>
NOAA-GFDL · Dec 17, 2024 · 890b4ae · 890b4ae
1 parent f6fc323
commit 890b4ae
Showing 1 changed file with 0 additions and 2 deletions.
diff --git a/GFS_layer/GFS_typedefs.F90 b/GFS_layer/GFS_typedefs.F90
@@ -4185,8 +4185,6 @@ subroutine diag_create (Diag, IM, Model)
       allocate (Diag%eta_shal(IM,Model%levs))
       allocate (Diag%co2(IM,Model%levs))
       allocate (Diag%elm_pbl(IM,Model%levs))
-      allocate (Diag%column_moles_co2_per_square_meter(IM))
-      allocate (Diag%column_moles_dry_air_per_square_meter(IM))
 
       if (Model%do_diagnostic_radiation_with_scaled_co2) then
          allocate (Diag%column_moles_co2_per_square_meter_with_scaled_co2(Model%n_diagnostic_radiation_calls,IM))