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

Timestamp:

Sep 6, 2012, 3:25:45 PM (12 years ago)

Author:

Laurent Fairhead

Message:

Inclusion de modifications pour régler le problème convection/traceurs dans la nouvelle
physique

1. Cozic

---

Modifications needed to correct the convection/tracers problem with the new physics

1. Cozic

File:

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

LMDZ5/trunk/libf/phylmd/concvl.F

@@ -248 +248 @@
          DO i = 1, klon
           cbmf(i) = 0.
-!          plcl(i) = 0.
+          plcl(i) = 0.
           sigd(i) = 0.
          ENDDO
@@ -256 +256 @@
       plfc(:)  = 0.
       wbeff(:) = 100.
-      plcl(:) = 0.
 
       DO k = 1, klev+1
@@ -369 +368 @@
      $              cape,cin,tvp,
      $              dd_t,dd_q,Plim1,Plim2,asupmax,supmax0,
-     $              asupmaxmin,lalim_conv)
+     $              asupmaxmin,lalim_conv,
+!AC!
+     $              da,phi)
+!AC!
       endif  
 C------------------------------------------------------------------
@@ -399 +401 @@
        ENDDO 
        endif
+
+c!AC!
+       if (iflag_con.eq.3) then
+       DO itra = 1,ntra
+        DO k = 1, klev
+         DO i = 1, klon
+            d_tra(i,k,itra) =dtime*d_tra(i,k,itra) 
+         ENDDO
+        ENDDO
+       ENDDO 
+       endif
+c!AC!
 
       DO k = 1, klev