From d9018a3b73802e937006a965132f86330b93a93c Mon Sep 17 00:00:00 2001 From: Dustin Swales Date: Thu, 30 Jan 2025 20:43:16 +0000 Subject: [PATCH] More scalars for PUMAS --- scm/src/GFS_typedefs.F90 | 4 ++++ scm/src/GFS_typedefs.meta | 20 ++++++++++++++++++++ 2 files changed, 24 insertions(+) diff --git a/scm/src/GFS_typedefs.F90 b/scm/src/GFS_typedefs.F90 index f3cc6937..e85009a3 100644 --- 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 index d2edd715..7091a8de 100644 --- 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