Changeset 4377 for LMDZ6/trunk/libf/phylmd/thermcell_main.F90

Timestamp:

Jan 8, 2023, 1:44:53 PM (17 months ago)

Author:

fhourdin

Message:

Modification replay et thermcell_down (atelier)

File:

• LMDZ6/trunk/libf/phylmd/thermcell_main.F90 (modified) (3 diffs)

LMDZ6/trunk/libf/phylmd/thermcell_main.F90

@@ -1 @@
-
 ! $Id$
 !
@@ -456 +455 @@
      &       detr,zqla,lev_out,lunout1,igout)
 
-#undef DevThermcellDown
-#ifdef DevThermcellDown
-      print*,'WARNING !!! routine thermcell_down en cours de developpement'
-      CALL thermcell_down(ngrid,nlay,po,pt,pu,pv,pplay,pplev,  &
-     &           lmax,fm,entr,detr,zthl)
-
-#endif
-
 !IM 060508    &       detr,zqla,zmax,lev_out,lunout,igout)
 
@@ -490 +481 @@
 !   calcul du transport vertical
 !------------------------------------------------------------------
+
+#undef DevThermcellDown
+#ifdef DevThermcellDown
+      print*,'AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA'
+      print*,'WARNING !!! routine thermcell_down en cours de developpement'
+      CALL thermcell_updown_dq(ngrid,nlay,ptimestep,lmax,entr0,detr0,0.5*detr0,0.5*entr0,masse,zthl)
+!--------------------------------------------------------------
+#endif
 
       call thermcell_dq(ngrid,nlay,dqimpl,ptimestep,fm0,entr0,masse,  &