Remove clear-sky diagnostics, since there is not an immediate use-case

NOAA-GFDL · Jan 8, 2025 · 3b34432 · 3b34432
1 parent cf9fca3
commit 3b34432
Show file tree

Hide file tree

Showing 3 changed files with 0 additions and 32 deletions.
diff --git a/FV3GFS/FV3GFS_io.F90 b/FV3GFS/FV3GFS_io.F90
@@ -3105,30 +3105,6 @@ subroutine register_diag_manager_controlled_diagnostics(Time, Sfcprop, IntDiag,
             do nb = 1,nblks
                Diag_diag_manager_controlled(index)%data(nb)%var3 => IntDiag(nb)%htrsw_with_scaled_co2(n,:,:)
             enddo
-
-            index = index + 1
-            Diag_diag_manager_controlled(index)%axes = 3
-            Diag_diag_manager_controlled(index)%name = 'tendency_of_air_temperature_due_to_longwave_heating_assuming_clear_sky_with_scaled_co2_' // radiation_call
-            Diag_diag_manager_controlled(index)%desc = 'temperature tendency due to longwave radiation assuming clear sky with ' // trim(adjustl(scaling)) // 'xCO2'
-            Diag_diag_manager_controlled(index)%unit = 'K/s'
-            Diag_diag_manager_controlled(index)%mod_name = 'gfs_phys'
-            Diag_diag_manager_controlled(index)%coarse_graining_method = MASS_WEIGHTED
-            allocate (Diag_diag_manager_controlled(index)%data(nblks))
-            do nb = 1,nblks
-               Diag_diag_manager_controlled(index)%data(nb)%var3 => IntDiag(nb)%lwhc_with_scaled_co2(n,:,:)
-            enddo
-
-            index = index + 1
-            Diag_diag_manager_controlled(index)%axes = 3
-            Diag_diag_manager_controlled(index)%name = 'tendency_of_air_temperature_due_to_shortwave_heating_assuming_clear_sky_with_scaled_co2_' // radiation_call
-            Diag_diag_manager_controlled(index)%desc = 'temperature tendency due to shortwave radiation assuming clear sky with ' // trim(adjustl(scaling)) // 'xCO2'
-            Diag_diag_manager_controlled(index)%unit = 'K/s'
-            Diag_diag_manager_controlled(index)%mod_name = 'gfs_phys'
-            Diag_diag_manager_controlled(index)%coarse_graining_method = MASS_WEIGHTED
-            allocate (Diag_diag_manager_controlled(index)%data(nblks))
-            do nb = 1,nblks
-               Diag_diag_manager_controlled(index)%data(nb)%var3 => IntDiag(nb)%swhc_with_scaled_co2(n,:,:)
-            enddo
          enddo
       endif
    endif

diff --git a/GFS_layer/GFS_physics_driver.F90 b/GFS_layer/GFS_physics_driver.F90
@@ -4400,8 +4400,6 @@ subroutine compute_diagnostics_with_scaled_co2(Model, Statein, Sfcprop, Coupling
            do k = 1, levs
              Diag%htrlw_with_scaled_co2(n,:,k) = Radtend%htrlw_with_scaled_co2(n,:,k)
              Diag%htrsw_with_scaled_co2(n,:,k) = Radtend%htrsw_with_scaled_co2(n,:,k) * xmu(:)
-             Diag%lwhc_with_scaled_co2(n,:,k) = Radtend%lwhc_with_scaled_co2(n,:,k)
-             Diag%swhc_with_scaled_co2(n,:,k) = Radtend%swhc_with_scaled_co2(n,:,k) * xmu(:)
            enddo
         endif
      enddo
@@ -4423,8 +4421,6 @@ subroutine update_multi_call_temperature_tendency_diagnostics(Diag, Model, speci
      do n = 1, Model%n_diagnostic_radiation_calls
         Diag%htrlw_with_scaled_co2(n,:,:) = con_cp * Diag%htrlw_with_scaled_co2(n,:,:) / specific_heat(:,:)
         Diag%htrsw_with_scaled_co2(n,:,:) = con_cp * Diag%htrsw_with_scaled_co2(n,:,:) / specific_heat(:,:)
-        Diag%lwhc_with_scaled_co2(n,:,:) = con_cp * Diag%lwhc_with_scaled_co2(n,:,:) / specific_heat(:,:)
-        Diag%swhc_with_scaled_co2(n,:,:) = con_cp * Diag%swhc_with_scaled_co2(n,:,:) / specific_heat(:,:)
      enddo
   end subroutine update_multi_call_temperature_tendency_diagnostics
 

diff --git a/GFS_layer/GFS_typedefs.F90 b/GFS_layer/GFS_typedefs.F90
@@ -1273,8 +1273,6 @@ module GFS_typedefs
 
     real (kind=kind_phys), pointer :: htrlw_with_scaled_co2(:,:,:) => null()    !< instantaneous 3d all-sky longwave radiative heating rate with scaled co2
     real (kind=kind_phys), pointer :: htrsw_with_scaled_co2(:,:,:) => null()    !< instantaneous 3d all-sky shortwave radiative heating rate with scaled co2
-    real (kind=kind_phys), pointer :: lwhc_with_scaled_co2(:,:,:) => null()     !< instantaneous 3d clear-sky longwave radiative heating rate with scaled co2
-    real (kind=kind_phys), pointer :: swhc_with_scaled_co2(:,:,:) => null()     !< instantaneous 3d clear-sky shortwave radiative heating rate with scaled co2
 
 #if defined (USE_COSP) || defined (COSP_OFFLINE)
     type (cosp_type)               :: cosp                      !< cosp output
@@ -4062,8 +4060,6 @@ subroutine diag_create (Diag, IM, Model)
        if (Model%ldiag3d) then
           allocate (Diag%htrlw_with_scaled_co2 (Model%n_diagnostic_radiation_calls,IM,Model%levs))
           allocate (Diag%htrsw_with_scaled_co2 (Model%n_diagnostic_radiation_calls,IM,Model%levs))
-          allocate (Diag%lwhc_with_scaled_co2 (Model%n_diagnostic_radiation_calls,IM,Model%levs))
-          allocate (Diag%swhc_with_scaled_co2 (Model%n_diagnostic_radiation_calls,IM,Model%levs))
        endif
     endif
     !--- Physics