Changeset 1279 for LMDZ4/trunk/libf/dyn3d/pres2lev.F

Timestamp:

Dec 10, 2009, 10:02:56 AM (14 years ago)

Author:

Laurent Fairhead

Message:

Merged LMDZ4-dev branch changes r1241:1278 into the trunk
Running trunk and LMDZ4-dev in LMDZOR configuration on local
machine (sequential) and SX8 (4-proc) yields identical results
(restart and restartphy are identical binarily)
Log history from r1241 to r1278 is available by switching to
source:LMDZ4/branches/LMDZ4-dev-20091210

Location:

LMDZ4/trunk

Files:

• . (modified) (1 prop)
• libf/dyn3d/pres2lev.F (modified) (3 diffs)

LMDZ4/trunk/libf/dyn3d/pres2lev.F

@@ -1 @@
-!
-! $Header$
+! $Id$
 !
 c******************************************************
@@ -21 +20 @@
 c  ARGUMENTS
 c  """""""""
-       LOGICAL ok_invertp
-       INTEGER lmo ! dimensions ancienne couches (input)
-       INTEGER lmn ! dimensions nouvelle couches (input)
-       INTEGER lmomx ! dimensions ancienne couches (input)
-       INTEGER lmnmx ! dimensions nouvelle couches (input)
+       LOGICAL, INTENT(IN) :: ok_invertp
+       INTEGER, INTENT(IN) :: lmo ! dimensions ancienne couches
+       INTEGER, INTENT(IN) :: lmn ! dimensions nouvelle couches
+       INTEGER lmomx ! dimensions ancienne couches
+       INTEGER lmnmx ! dimensions nouvelle couches
 
        parameter(lmomx=10000,lmnmx=10000)
 
-        real po(ni,nj,lmo)! niveau de pression ancienne grille
-        real pn(ni,nj,lmn) ! niveau de pression nouvelle grille
+        real, INTENT(IN) :: po(ni,nj,lmo) ! niveau de pression ancienne grille
+        real, INTENT(IN) :: pn(ni,nj,lmn) ! niveau de pression nouvelle grille
 
-       INTEGER i,j,Nhoriz,ni,nj ! nombre de point horizontale (input)
+       INTEGER, INTENT(IN) :: ni,nj ! nombre de point horizontale
 
-       REAL varo(ni,nj,lmo) ! var dans l'ancienne grille (input)
-       REAL varn(ni,nj,lmn) ! var dans la nouvelle grille (output)
+       REAL, INTENT(IN)  :: varo(ni,nj,lmo) ! var dans l'ancienne grille
+       REAL, INTENT(OUT) :: varn(ni,nj,lmn) ! var dans la nouvelle grille
 
        real zvaro(lmomx),zpo(lmomx)
@@ -41 +40 @@
 c Autres variables
 c """"""""""""""""
-       INTEGER n, ln ,lo 
+       INTEGER n, ln ,lo, i, j, Nhoriz
        REAL coef