Changeset 105

Timestamp:

08/06/12 04:16:50 (12 years ago)

Author:

ymipsl

Message:

Minor correction for output at levl pression

YM

File:

• codes/icosagcm/trunk/src/vertical_interp.f90 (modified) (1 diff)

codes/icosagcm/trunk/src/vertical_interp.f90

@@ -58 +58 @@
       DO i=ii_begin-1,ii_end+1
         ij=(j-1)*iim+i
-        l=llm+1
+        l=llm-1
         DO WHILE(0.5*(p(ij,l)+p(ij,l+1))<pval .AND. l>1)
           l=l-1