/[lmdze]/trunk/libf/phylmd/Orography/lift_noro.f90
ViewVC logotype

Diff of /trunk/libf/phylmd/Orography/lift_noro.f90

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

revision 51 by guez, Thu Jan 6 17:52:19 2011 UTC revision 52 by guez, Fri Sep 23 12:28:01 2011 UTC
# Line 30  Line 30 
30        REAL, INTENT (IN) :: pplay(klon,klev)        REAL, INTENT (IN) :: pplay(klon,klev)
31        REAL, INTENT (IN) :: plat(nlon)        REAL, INTENT (IN) :: plat(nlon)
32        REAL pmea(nlon)        REAL pmea(nlon)
33        REAL, INTENT (IN) :: pstd(nlon)        REAL, INTENT (IN):: pstd(nlon)
34        REAL ppic(nlon)        REAL ppic(nlon)
35        REAL pulow(nlon), pvlow(nlon), pustr(nlon), pvstr(nlon)        REAL pulow(nlon), pvlow(nlon), pustr(nlon), pvstr(nlon)
36        REAL t(nlon,nlev), u(nlon,nlev), v(nlon,nlev)        REAL, INTENT (IN):: t(nlon,nlev)
37          real u(nlon,nlev), v(nlon,nlev)
38        REAL d_t(nlon,nlev), d_u(nlon,nlev), d_v(nlon,nlev)        REAL d_t(nlon,nlev), d_u(nlon,nlev), d_v(nlon,nlev)
39    
40        INTEGER i, k, ktest(nlon)        INTEGER i, k, ktest(nlon)
Legend:
Removed from v.51  
changed lines
  Added in v.52
  ViewVC Help
Powered by ViewVC 1.1.21