Changeset 1901 for trunk/LMDZ.TITAN/libf/phytitan

Timestamp:

Jan 29, 2018, 10:38:00 AM (7 years ago)

Author:

jvatant

Message:

Correct the mufi tendencies, no need to multiply
by timestep, inimufi has passed timestep to YAMMS
--JVO

File:

• trunk/LMDZ.TITAN/libf/phytitan/physiq_mod.F90 (modified) (2 diffs)

trunk/LMDZ.TITAN/libf/phytitan/physiq_mod.F90

@@ -1146 +1146 @@
                   call calmufi(zplevbar,zzlevbar,zplaybar,zzlaybar,ztfibar,tpq,zdqmufi)
                endif
-               tpq(:,:,:) = tpq(:,:,:) + zdqmufi(1:ngrid,1:nlayer,1:nq)*ptimestep
+               tpq(:,:,:) = tpq(:,:,:) + zdqmufi(1:ngrid,1:nlayer,1:nq)
 #else
             ! Inside this routine we will split 2D->1D, intensive->extensive and separate different types of tracers
@@ -1157 +1157 @@
                endif
 
-            pdq(1:ngrid,1:nlayer,1:nq) = pdq(1:ngrid,1:nlayer,1:nq) + zdqmufi(1:ngrid,1:nlayer,1:nq)   
+            pdq(1:ngrid,1:nlayer,1:nq) = pdq(1:ngrid,1:nlayer,1:nq) + zdqmufi(1:ngrid,1:nlayer,1:nq)
+            ! We don't re-multiply by timestep, it is already taken into account in zdqmufi,
+            ! since inimufi has initialized YAMMS with a given ts.
 #endif
          endif ! end of 'callmufi'