More consistent logic for NSSL mp (mixing snow)

ufs-community · Mar 14, 2023 · 0b369ef · 0b369ef
1 parent 0e20bda
commit 0b369ef
Showing 1 changed file with 5 additions and 5 deletions.
diff --git a/physics/mynnedmf_wrapper.F90 b/physics/mynnedmf_wrapper.F90
@@ -392,16 +392,16 @@ SUBROUTINE mynnedmf_wrapper_run(        &
          FLAG_QNI= .true.
          FLAG_QC = .true.
          FLAG_QNC= .true.
-         FLAG_QS = .false.
+         FLAG_QS = .true.
          FLAG_QNWFA= nssl_ccn_on ! ERM: Perhaps could use this field for CCN field?
          FLAG_QNIFA= .false.
          FLAG_QNBCA= .false.
          do k=1,levs
             do i=1,im
-              sqv(i,k)  = qgrs_water_vapor(i,k)
-              sqc(i,k)    = qgrs_liquid_cloud(i,k)
-              sqi(i,k)    = qgrs_ice(i,k)
-              sqs(i,k)   = 0.
+              sqv(i,k)   = qgrs_water_vapor(i,k)
+              sqc(i,k)   = qgrs_liquid_cloud(i,k)
+              sqi(i,k)   = qgrs_ice(i,k)
+              sqs(i,k)   = qgrs_snow(i,k)
               ozone(i,k) = qgrs_ozone(i,k)
               qnc(i,k)   = qgrs_cloud_droplet_num_conc(i,k)
               qni(i,k)   = qgrs_cloud_ice_num_conc(i,k)