Changeset 1518 for LMDZ5/trunk/libf/phylmd/concvl.F

Timestamp:

May 12, 2011, 3:32:22 PM (13 years ago)

Author:

idelkadi

Message:

Modifications des routines de convection :

• correction de bug : le champ sigd n'etait pas decompresse avant d'etre sorti de la convection.
• sortir de nouveaux champs de convection (plcl, plfc, wb)

File:

• LMDZ5/trunk/libf/phylmd/concvl.F (modified) (5 diffs)

LMDZ5/trunk/libf/phylmd/concvl.F

@@ -5 +5 @@
      .             d_t,d_q,d_u,d_v,d_tra,
      .             rain, snow, kbas, ktop, sigd,
-     .             cbmf,upwd,dnwd,dnwdbis,Ma,mip,Vprecip,
+     .             cbmf,plcl,plfc,wbeff,upwd,dnwd,dnwdbis,
+     .             Ma,mip,Vprecip,
      .             cape,cin,tvp,Tconv,iflag,
      .             pbase,bbase,dtvpdt1,dtvpdq1,dplcldt,dplcldr,
@@ -120 +121 @@
        INTEGER i,k,itra
        REAL qs(klon,klev),qs_wake(klon,klev)
-       REAL cbmf(klon)
+       REAL cbmf(klon),plcl(klon),plfc(klon),wbeff(klon)
 cLF       SAVE cbmf
 cIM/JYG      REAL, SAVE, ALLOCATABLE :: cbmf(:)
@@ -246 +247 @@
          DO i = 1, klon
           cbmf(i) = 0.
+          plcl(i) = 0.
+          plfc(i) = 0.
+          wbeff(i) = 0.
           sigd(i) = 0.
          ENDDO
@@ -357 +361 @@
      .              em_sig1feed,em_sig2feed,em_wght,
      .              iflag,d_t,d_q,d_u,d_v,d_tra,rain,kbas,ktop,
-     $              cbmf,work1,work2,ptop2,sigd,
+     $              cbmf,plcl,plfc,wbeff,work1,work2,ptop2,sigd,
      $              Ma,mip,Vprecip,upwd,dnwd,dnwdbis,qcondc,wd,
      $              cape,cin,tvp,
@@ -364 +368 @@
       endif  
 C------------------------------------------------------------------
+      print *,' cva_driver -> cbmf,plcl,plfc,wbeff ',
+     .          cbmf(1),plcl(1),plfc(1),wbeff(1)
 
       DO i = 1,klon