/[lmdze]/trunk/dyn3d/Guide/Read_reanalyse/pres2lev.f
ViewVC logotype

Diff of /trunk/dyn3d/Guide/Read_reanalyse/pres2lev.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

trunk/Sources/dyn3d/pres2lev.f revision 171 by guez, Tue Sep 29 19:48:59 2015 UTC trunk/Sources/dyn3d/Guide/Read_reanalyse/pres2lev.f revision 172 by guez, Wed Sep 30 15:59:14 2015 UTC
# Line 20  contains Line 20  contains
20      ! ARGUMENTS      ! ARGUMENTS
21      ! """""""""      ! """""""""
22    
23      INTEGER lmo ! dimensions ancienne couches (input)      INTEGER, intent(in):: lmo ! dimensions ancienne couches (input)
24      INTEGER lmn ! dimensions nouvelle couches (input)      INTEGER lmn ! dimensions nouvelle couches (input)
25      INTEGER lmomx ! dimensions ancienne couches (input)      INTEGER lmomx ! dimensions ancienne couches (input)
26      INTEGER lmnmx ! dimensions nouvelle couches (input)      INTEGER lmnmx ! dimensions nouvelle couches (input)
27    
28      PARAMETER (lmomx=10000, lmnmx=10000)      PARAMETER (lmomx=10000, lmnmx=10000)
29    
30      REAL po(lmo) ! niveau de pression en millibars      REAL, intent(in):: po(lmo) ! niveau de pression en millibars
31      INTEGER ni, nj      INTEGER ni, nj
32      REAL pn(ni, nj, lmn) ! niveau de pression en pascals      REAL pn(ni, nj, lmn) ! niveau de pression en pascals
33    
Legend:
Removed from v.171  
changed lines
  Added in v.172
  ViewVC Help
Powered by ViewVC 1.1.21