Changeset 1179 for LMDZ4/branches/LMDZ4-dev/libf/dyn3d/pres2lev.F
- Timestamp:
- Jun 11, 2009, 4:18:47 PM (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/branches/LMDZ4-dev/libf/dyn3d/pres2lev.F
r1046 r1179 1 ! 2 ! $Header$ 1 ! $Id$ 3 2 ! 4 3 c****************************************************** … … 21 20 c ARGUMENTS 22 21 c """"""""" 23 LOGICAL ok_invertp24 INTEGER lmo ! dimensions ancienne couches (input)25 INTEGER lmn ! dimensions nouvelle couches (input)26 INTEGER lmomx ! dimensions ancienne couches (input)27 INTEGER lmnmx ! dimensions nouvelle couches (input)22 LOGICAL, INTENT(IN) :: ok_invertp 23 INTEGER, INTENT(IN) :: lmo ! dimensions ancienne couches 24 INTEGER, INTENT(IN) :: lmn ! dimensions nouvelle couches 25 INTEGER lmomx ! dimensions ancienne couches 26 INTEGER lmnmx ! dimensions nouvelle couches 28 27 29 28 parameter(lmomx=10000,lmnmx=10000) 30 29 31 real po(ni,nj,lmo)! niveau de pression ancienne grille32 real pn(ni,nj,lmn) ! niveau de pression nouvelle grille30 real, INTENT(IN) :: po(ni,nj,lmo) ! niveau de pression ancienne grille 31 real, INTENT(IN) :: pn(ni,nj,lmn) ! niveau de pression nouvelle grille 33 32 34 INTEGER i,j,Nhoriz,ni,nj ! nombre de point horizontale (input)33 INTEGER, INTENT(IN) :: ni,nj ! nombre de point horizontale 35 34 36 REAL varo(ni,nj,lmo) ! var dans l'ancienne grille (input)37 REAL varn(ni,nj,lmn) ! var dans la nouvelle grille (output)35 REAL, INTENT(IN) :: varo(ni,nj,lmo) ! var dans l'ancienne grille 36 REAL, INTENT(OUT) :: varn(ni,nj,lmn) ! var dans la nouvelle grille 38 37 39 38 real zvaro(lmomx),zpo(lmomx) … … 41 40 c Autres variables 42 41 c """""""""""""""" 43 INTEGER n, ln ,lo 42 INTEGER n, ln ,lo, i, j, Nhoriz 44 43 REAL coef 45 44
Note: See TracChangeset
for help on using the changeset viewer.