More scalars for PUMAS

NCAR · Jan 30, 2025 · d9018a3 · d9018a3
1 parent 603162a
commit d9018a3
Show file tree

Hide file tree

Showing 2 changed files with 24 additions and 0 deletions.
diff --git a/scm/src/GFS_typedefs.F90 b/scm/src/GFS_typedefs.F90
@@ -1664,6 +1664,10 @@ module GFS_typedefs
     logical              :: micro_mg_icenuc_use_meyers !< use temperature dependent ice nucleation from Meyers 1992 for PUMAS microphysics
     logical              :: micro_mg_evap_rhthrsh_ifs !< Do not evaporate precipitation until RH below 90% as done in the for PUMAS microphysics
 
+    real(kind=kind_phys) :: micro_mg_homog_size !< radius of drops homogeneously frozen in MG microphysics
+    real(kind=kind_phys) :: micro_mg_max_nicons !< maximum allowed ice number concentration for MG microphysics
+    integer              :: iulog !< log output unit
+
 !--- CCPP suite simulator
     logical                                :: do_ccpp_suite_sim  !
     integer                                :: nphys_proc          !

diff --git a/scm/src/GFS_typedefs.meta b/scm/src/GFS_typedefs.meta
@@ -7263,6 +7263,26 @@
   units = flag
   dimensions = ()
   type = logical
+[iulog]
+  standard_name = log_output_unit
+  long_name = log output unit
+  units = 1
+  dimensions = ()
+  type = integer
+[micro_mg_homog_size]
+  standard_name = homogeneous_freezing_radius
+  long_name = radius of drops homogeneously frozen in MG microphysics
+  units = m
+  dimensions = ()
+  type = real
+  kind = kind_phys
+[micro_mg_max_nicons]
+  standard_name = maximum_ice_number_concentration
+  long_name = maximum allowed ice number concentration for MG microphysics
+  units = m-3
+  dimensions = ()
+  type = real
+  kind = kind_phys
 [do_ccpp_suite_sim]
   standard_name = flag_for_CCPP_suite_simulator
   long_name = flag for ccpp suite simulator