fix bug when calling unallocated diagnostics

NOAA-GFDL · Jun 18, 2024 · 0cd3018 · 0cd3018
1 parent fb99cae
commit 0cd3018
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/GFS_layer/GFS_radiation_driver.F90 b/GFS_layer/GFS_radiation_driver.F90
@@ -1386,7 +1386,9 @@ 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.
-      call compute_column_integrated_moles_of_dry_air_and_co2(Statein, gasvmr, IM, LMK, NF_VGAS, Diag)
+      if (Model%ldiag3d) then
+        call compute_column_integrated_moles_of_dry_air_and_co2(Statein, gasvmr, IM, LMK, NF_VGAS, Diag)
+      endif
 
 !>  - Get temperature at layer interface, and layer moisture.
       do k = 2, LMK