Changeset 3398 for trunk/LMDZ.MARS/libf/phymars/nonoro_gwd_mix_mod.F90

Timestamp:

Jul 22, 2024, 5:05:50 PM (4 months ago)

Author:

jliu

Message:

Un petit bug fixed in mixing traceurs when doing AR-1: the last step q tendency
was forgot to give to montainant step. Thus all mixing-induce tendency becomes
zero due to initiallization values are zero.

File:

• trunk/LMDZ.MARS/libf/phymars/nonoro_gwd_mix_mod.F90 (modified) (1 diff)

trunk/LMDZ.MARS/libf/phymars/nonoro_gwd_mix_mod.F90

@@ -815 +815 @@
     endDO
 
+    do QQ=1,NQ
+    dq_eddymix_gwd(:, :, QQ)=d_pq(:, :, QQ)
+    ENDdo
+
   END SUBROUTINE NONORO_GWD_MIX