/[lmdze]/trunk/Sources/phylmd/Orography/drag_noro.f
ViewVC logotype

Diff of /trunk/Sources/phylmd/Orography/drag_noro.f

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

trunk/phylmd/Orography/drag_noro.f90 revision 76 by guez, Fri Nov 15 18:45:49 2013 UTC trunk/phylmd/Orography/drag_noro.f revision 91 by guez, Wed Mar 26 17:18:58 2014 UTC
# Line 41  contains Line 41  contains
41      REAL ppic(nlon), pval(nlon)      REAL ppic(nlon), pval(nlon)
42      REAL pulow(nlon), pvlow(nlon), pustr(nlon), pvstr(nlon)      REAL pulow(nlon), pvlow(nlon), pustr(nlon), pvstr(nlon)
43      REAL, INTENT (IN):: t(nlon, nlev)      REAL, INTENT (IN):: t(nlon, nlev)
44      real u(nlon, nlev), v(nlon, nlev)      real, INTENT (IN):: u(nlon, nlev), v(nlon, nlev)
45      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)
46    
47      INTEGER i, k, kgwd, kdx(nlon), ktest(nlon)      INTEGER i, k, kgwd, kdx(nlon), ktest(nlon)
Legend:
Removed from v.76  
changed lines
  Added in v.91
  ViewVC Help
Powered by ViewVC 1.1.21