debug sgscloud_radpre/post

Author: grantfirl

physics/Interstitials/UFS_SCM_NEPTUNE/sgscloud_radpost.meta

@@ -36,23 +36,23 @@
   type = logical
   intent = in
 [qc]
-  standard_name = physics_timestep_initial_cloud_liquid_water_mixing_ratio
+  standard_name = cloud_liquid_water_mixing_ratio
   long_name = no condensates) ratio of mass of cloud water to mass of dry air plus vapor (without condensates)
   units = kg kg-1
   dimensions = (horizontal_loop_extent,vertical_layer_dimension)
   type = real
   kind = kind_phys
   intent = inout
 [qi]
-  standard_name = physics_timestep_initial_cloud_ice_mixing_ratio
+  standard_name = cloud_ice_mixing_ratio
   long_name = ratio of mass of ice water to mass of dry air plus vapor (without condensates)
   units = kg kg-1
   dimensions = (horizontal_loop_extent,vertical_layer_dimension)
   type = real
   kind = kind_phys
   intent = inout
 [qs]
-  standard_name = physics_timestep_initial_snow_mixing_ratio
+  standard_name = snow_mixing_ratio
   long_name = ratio of mass of snow water to mass of dry air plus vapor (without condensates)
   units = kg kg-1
   dimensions = (horizontal_loop_extent,vertical_layer_dimension)

physics/Interstitials/UFS_SCM_NEPTUNE/sgscloud_radpre.F90

@@ -78,11 +78,11 @@ subroutine sgscloud_radpre_run(    &
            &  imp_physics_gfdl, imp_physics_fa, conv_cf_opt
       logical,             intent(in)  :: flag_init, flag_restart, do_mynnedmf
 
-      real(kind=kind_phys), dimension(:,:), intent(inout) :: qc, qi
-      real(kind=kind_phys), dimension(:,:), intent(inout) :: qr, qs, qg
+      real(kind=kind_phys), dimension(:,:), intent(inout) :: qc, qi, qs
+      real(kind=kind_phys), dimension(:,:), intent(in) :: qr, qg
       ! note: qci_conv only allocated if GF is used
-      real(kind=kind_phys), dimension(:,:), intent(inout), optional :: qci_conv
-      real(kind=kind_phys), dimension(:,:), intent(inout) :: qlc, qli !for SAS
+      real(kind=kind_phys), dimension(:,:), intent(in), optional :: qci_conv
+      real(kind=kind_phys), dimension(:,:), intent(in) :: qlc, qli !for SAS
       real(kind=kind_phys), dimension(:,:), intent(in), optional    :: ud_mf
       real(kind=kind_phys), dimension(:,:), intent(in)    :: T3D,delp
       real(kind=kind_phys), dimension(:,:), intent(in)    :: qv,P3D,exner

physics/Interstitials/UFS_SCM_NEPTUNE/sgscloud_radpre.meta

@@ -166,15 +166,15 @@
   kind = kind_phys
   intent = inout
 [qv]
-  standard_name = physics_timestep_initial_specific_humidity
+  standard_name = specific_humidity
   long_name = water vapor specific humidity
   units = kg kg-1
   dimensions = (horizontal_loop_extent,vertical_layer_dimension)
   type = real
   kind = kind_phys
   intent = in
 [T3D]
-  standard_name = physics_timestep_initial_air_temperature
+  standard_name = air_temperature
   long_name = layer mean air temperature
   units = K
   dimensions = (horizontal_loop_extent,vertical_layer_dimension)
@@ -204,15 +204,15 @@
   dimensions = (horizontal_loop_extent,vertical_layer_dimension)
   type = real
   kind = kind_phys
-  intent = inout
+  intent = in
 [qg]
   standard_name = graupel_mixing_ratio
   long_name = graupel mixing ratio wrt dry+vapor (no condensates)
   units = kg kg-1
   dimensions = (horizontal_loop_extent,vertical_layer_dimension)
   type = real
   kind = kind_phys
-  intent = inout
+  intent = in
 [ud_mf]
   standard_name = instantaneous_atmosphere_updraft_convective_mass_flux
   long_name = (updraft mass flux) * delt
@@ -229,7 +229,7 @@
   dimensions = (horizontal_loop_extent,vertical_layer_dimension)
   type = real
   kind = kind_phys
-  intent = inout
+  intent = in
   optional = True
 [qlc]
   standard_name = cloud_condensed_water_mixing_ratio_convective_transport_tracer
@@ -238,15 +238,15 @@
   dimensions = (horizontal_loop_extent,vertical_layer_dimension)
   type = real
   kind = kind_phys
-  intent = inout
+  intent = in
 [qli]
   standard_name = ice_water_mixing_ratio_convective_transport_tracer
   long_name = ratio of mass of ice water to mass of dry air plus vapor (without condensates) in the convectively transported tracer array
   units = kg kg-1
   dimensions = (horizontal_loop_extent,vertical_layer_dimension)
   type = real
   kind = kind_phys
-  intent = inout
+  intent = in
 [imfdeepcnv]
   standard_name = control_for_deep_convection_scheme
   long_name = flag for mass-flux deep convection scheme