Changeset 2144 for trunk/LMDZ.GENERIC/libf/phystd/thermcell_main.F90

Timestamp:

Jun 20, 2019, 7:07:28 PM (5 years ago)

Author:

aboissinot

Message:

Thermal plume model parameters are now set in callphys.def and (re)add flag to choose between thermcell_dv2 or thermcell_dq to mix horizontal momentum.

File:

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

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

@@ -424 +424 @@
 !-------------------------------------------------------------------------------
       
-      CALL thermcell_dq(ngrid,nlay,ptimestep,fm0,entr0,detr0,masse,           &
-      &                 zu,pduadj,zua,lmin)
-       
-      CALL thermcell_dq(ngrid,nlay,ptimestep,fm0,entr0,detr0,masse,           &
-      &                 zv,pdvadj,zva,lmin)
-      
-!      CALL thermcell_dv2(ngrid,nlay,ptimestep,fm0,entr0,detr0,masse,fraca,    &
-!      &                  zmax,zmin,pu,pv,pduadj,pdvadj,zua,zva)
+      IF (dvimpl) THEN
+         CALL thermcell_dv2(ngrid,nlay,ptimestep,fm0,entr0,detr0,masse,fraca,    &
+         &                  zmax,zmin,pu,pv,pduadj,pdvadj,zua,zva)
+      ELSE
+         CALL thermcell_dq(ngrid,nlay,ptimestep,fm0,entr0,detr0,masse,           &
+         &                 zu,pduadj,zua,lmin)
+         CALL thermcell_dq(ngrid,nlay,ptimestep,fm0,entr0,detr0,masse,           &
+         &                 zv,pdvadj,zva,lmin)
+      ENDIF
+      
       
 RETURN