Merge pull request #4 from JiliDong-NOAA/nssl-microphysics-update-202…

…10406 Nssl microphysics update 20210406
NOAA-GSL · Apr 6, 2021 · 6ef9984 · 6ef9984
2 parents 2a2d8c9 + 7e982a9
commit 6ef9984
Show file tree

Hide file tree

Showing 3 changed files with 18 additions and 3 deletions.
diff --git a/physics/GFS_rrtmg_pre.meta b/physics/GFS_rrtmg_pre.meta
@@ -273,6 +273,21 @@
   type = integer
   intent = in
   optional = F
+[imp_physics_nssl2m]
+  standard_name = flag_for_nssl2m_microphysics_scheme
+  long_name = choice of NSSL 2-moment microphysics scheme
+  units = flag
+  dimensions = ()
+  type = integer
+  intent = in
+  optional = F
+[imp_physics_nssl2mccn]
+  standard_name = flag_for_nssl2mccn_microphysics_scheme
+  long_name = choice of NSSL 2-moment microphysics scheme with CCN
+  units = flag
+  dimensions = ()
+  type = integer
+  intent = in-  optional = F
 [imp_physics_thompson]
   standard_name = flag_for_thompson_microphysics_scheme
   long_name = choice of Thompson microphysics scheme

diff --git a/physics/module_mp_nssl_2mom.F90 b/physics/module_mp_nssl_2mom.F90
@@ -2320,8 +2320,8 @@ SUBROUTINE nssl_2mom_init(  &
       iexy(lhl,lc) = iehlc ; iexy(lhl,lr)  = iehlr ;
       ENDIF
 
-      IF ( icefallfac /= 1.0 ) write(0,*) 'icefallfac = ',icefallfac
-      IF ( snowfallfac /= 1.0 ) write(0,*) 'snowfallfac = ',snowfallfac
+!      IF ( icefallfac /= 1.0 ) write(0,*) 'icefallfac = ',icefallfac
+!      IF ( snowfallfac /= 1.0 ) write(0,*) 'snowfallfac = ',snowfallfac
 
 
   RETURN

diff --git a/physics/mp_nsslg.F90 b/physics/mp_nsslg.F90
@@ -679,7 +679,7 @@ subroutine mp_nsslg_run(ncol, nlev, con_g, con_rd, &
             re_cloud = re_cloud_mp*1.0E6_kind_phys
             re_ice   = re_ice_mp*1.0E6_kind_phys
             re_snow  = re_snow_mp*1.0E6_kind_phys
-            re_rain  = 1.0E3_kind_phys
+!            re_rain  = 1.0E3_kind_phys
          end if
 
         IF ( ndebug > 1 ) write(0,*) 'mp_nsslg: end'