Changeset 2127 for trunk/LMDZ.GENERIC/libf/phystd/convadj.F

Timestamp:

Apr 29, 2019, 10:07:47 AM (6 years ago)

Author:

aboissinot

Message:

Fix in convadj.F
New version of the thermal plume model (new entrainment and detrainment formulae, alimentation is removed)

File:

• trunk/LMDZ.GENERIC/libf/phystd/convadj.F (modified) (2 diffs)

trunk/LMDZ.GENERIC/libf/phystd/convadj.F

@@ -197 +197 @@
             l2 = l2 + 1
             IF (l2 .GT. nlay) EXIT
-            IF ((zhc(i, l2).LT.zhc(i, l2-1)).and.(l.GT.lmax(i))) THEN
+            IF ((zhc(i, l2).LT.zhc(i, l2-1)).and.(l2.GT.lmax(i))) THEN
  
 !     l2 is the highest level of the unstable column
@@ -226 +226 @@
                 down = .false.
                 IF (l1 .ne. 1) then    !--  and then
-                  IF ((zhmc.LT.zhc(i, l1-1)).and.(l.GT.lmax(i))) then
+                  IF ((zhmc.LT.zhc(i, l1-1)).and.(l1.GT.lmax(i))) then
                     down = .true.
                   END IF