Merge pull request #2 from climbfuji/bugfix_dq3dt_reset_for_tanya

Yet another bugfix in gfsphysics/GFS_layer/GFS_typedefs.F90, need to initialize/reset dq3dt
tanyasmirnova · Jan 19, 2021 · f85d9b5 · f85d9b5
2 parents d0154fd + 49fe0c1
commit f85d9b5
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/gfsphysics/GFS_layer/GFS_typedefs.F90 b/gfsphysics/GFS_layer/GFS_typedefs.F90
@@ -6235,12 +6235,12 @@ subroutine diag_phys_zero (Diag, Model, linit, iauwindow_center)
       Diag%du3dt    = zero
       Diag%dv3dt    = zero
       Diag%dt3dt    = zero
-!      if (Model%qdiag3d) then
-!        Diag%dq3dt    = zero
+      if (Model%qdiag3d) then
+        Diag%dq3dt    = zero
 !        Diag%upd_mf   = zero
 !        Diag%dwn_mf   = zero
 !        Diag%det_mf   = zero
-!      endif
+      endif
     endif
 
 !