Changeset 2542 for LMDZ5/branches/testing/libf/phylmd/cv3p1_closure.F90

Timestamp:

Jun 6, 2016, 4:04:57 PM (8 years ago)

Author:

Laurent Fairhead

Message:

Merged trunk changes r2487:2541 into testing branch

Location:

LMDZ5/branches/testing

Files:

• . (modified) (1 prop)
• libf/phylmd/cv3p1_closure.F90 (modified) (3 diffs)

LMDZ5/branches/testing/libf/phylmd/cv3p1_closure.F90

@@ -113 +113 @@
   IF (prt_level>=20) PRINT *, 'cv3p1_param nloc ncum nd icb inb nl', nloc, &
     ncum, nd, icb(nloc), inb(nloc), nl
-  DO k = 1, nl
+  DO k = 1, nd          !jyg: initialization up to nd
     DO il = 1, ncum
       m(il, k) = 0.0
@@ -120 +120 @@
 
 !CR: initializations for erosion of adiabatic ascent 
-  DO k = 1,nl
+  DO k = 1,nd           !jyg: initialization up to nd
     DO il = 1, ncum
         mad(il,k)=0.
@@ -628 +628 @@
 
 !Verification sum(me)=sum(m)
-  DO k = 1,nl+1
+  DO k = 1,nd                         !jyg: initialization up to nd
     DO il = 1, ncum
        md(il,k)=0.