Move column_moles diag outside of ldiag3d

NOAA-GFDL · Jun 19, 2024 · 91e8c41 · 91e8c41
1 parent 7da8cca
commit 91e8c41
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 5 deletions.
diff --git a/GFS_layer/GFS_radiation_driver.F90 b/GFS_layer/GFS_radiation_driver.F90
@@ -1386,9 +1386,7 @@ subroutine GFS_radiation_driver                       &
       ! air and moles of co2 per square meter following the method in
       ! radlw_main.f.  These can be used later to compute a global mean carbon
       ! dioxide volume mixing ratio diagnostic if requested.
-      if (Model%ldiag3d) then
-        call compute_column_integrated_moles_of_dry_air_and_co2(Statein, gasvmr, IM, LMK, NF_VGAS, Diag)
-      endif
+      call compute_column_integrated_moles_of_dry_air_and_co2(Statein, gasvmr, IM, LMK, NF_VGAS, Diag)
 
 !>  - Get temperature at layer interface, and layer moisture.
       do k = 2, LMK

diff --git a/GFS_layer/GFS_typedefs.F90 b/GFS_layer/GFS_typedefs.F90
@@ -3918,6 +3918,8 @@ subroutine diag_create (Diag, IM, Model)
     allocate (Diag%pfr(IM,Model%levs))
     allocate (Diag%pfs(IM,Model%levs))
     allocate (Diag%pfg(IM,Model%levs))
+    allocate (Diag%column_moles_co2_per_square_meter(IM))
+    allocate (Diag%column_moles_dry_air_per_square_meter(IM))
 
     !--- 3D diagnostics
     if (Model%ldiag3d) then
@@ -3935,8 +3937,6 @@ subroutine diag_create (Diag, IM, Model)
       allocate (Diag%wu2_shal(IM,Model%levs))
       allocate (Diag%eta_shal(IM,Model%levs))
       allocate (Diag%co2(IM,Model%levs))
-      allocate (Diag%column_moles_co2_per_square_meter(IM))
-      allocate (Diag%column_moles_dry_air_per_square_meter(IM))
 
       !--- needed to allocate GoCart coupling fields
       allocate (Diag%upd_mf (IM,Model%levs))