Changeset 2113 for trunk/LMDZ.GENERIC/libf/phystd/physiq_mod.F90

Timestamp:

Mar 6, 2019, 7:10:00 PM (6 years ago)

Author:

aboissinot

Message:

Add new formulae to compute vertical speed in thermcell_plume (only consistent with mix0=0)

Add pdt and pdq to pt and pq for computing zdttherm and zdqtherm in physiq_mod when water=false.
That in order to be consistent with the case water=true

File:

• trunk/LMDZ.GENERIC/libf/phystd/physiq_mod.F90 (modified) (1 diff)

trunk/LMDZ.GENERIC/libf/phystd/physiq_mod.F90

@@ -1193 +1193 @@
             CALL evap(ngrid,nlayer,nq,ptimestep,pt,pq,pdq,pdt,dqevap,dtevap,zqtherm,zttherm)
          ELSE
-            zttherm(:,:) = pt(:,:)
-            zqtherm(:,:,:) = pq(:,:,:)
+            zttherm(:,:)   = pt(:,:)   + pdt(:,:)
+            zqtherm(:,:,:) = pq(:,:,:) + pdq(:,:,:)
          ENDIF