Changeset 66 for codes/icosagcm/trunk/src/disvert_ncarl30.f90

Timestamp:

08/01/12 06:57:21 (12 years ago)

Author:

ymipsl

Message:

bug fix for ncar vertical discretisation at 30 levels

YM

File:

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

codes/icosagcm/trunk/src/disvert_ncarl30.f90

@@ -92 +92 @@
                          1. /)                         
                     
-    ap(:)=a(:)*preff
-    bp(:)=b(:) 
+    ap(:)=a(31:1:-1)*preff
+    bp(:)=b(31:1:-1) 
     DO l = 1, llm
       presnivs(l) = 0.5 *( ap(l)+bp(l)*preff + ap(l+1)+bp(l+1)*preff )