/[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

revision 134 by guez, Wed Apr 29 15:47:56 2015 UTC revision 150 by guez, Thu Jun 18 13:49:26 2015 UTC
# Line 5  module drag_noro_m Line 5  module drag_noro_m
5  contains  contains
6    
7    SUBROUTINE drag_noro(nlon, nlev, dtime, paprs, pplay, pmea, pstd, psig, &    SUBROUTINE drag_noro(nlon, nlev, dtime, paprs, pplay, pmea, pstd, psig, &
8         pgam, pthe, ppic, pval, kgwd, kdx, ktest, t, u, v, pulow, pvlow, &         pgam, pthe, ppic, pval, ktest, t, u, v, pulow, pvlow, pustr, pvstr, &
9         pustr, pvstr, d_t, d_u, d_v)         d_t, d_u, d_v)
10    
11      ! From LMDZ4/libf/phylmd/orografi.F, version 1.4 2005/12/01 11:27:29      ! From LMDZ4/libf/phylmd/orografi.F, version 1.4 2005/12/01 11:27:29
12    
# Line 44  contains Line 44  contains
44      real, INTENT (IN):: 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, ktest(nlon)
48    
49      ! Variables locales:      ! Variables locales:
50    
# Line 100  contains Line 100  contains
100    
101      ! appeler la routine principale      ! appeler la routine principale
102    
103      CALL orodrag(klon, klev, kgwd, kdx, ktest, dtime, papmh, papmf, zgeom, &      CALL orodrag(klon, klev, ktest, dtime, papmh, papmf, zgeom, &
104           pt, pu, pv, pmea, pstd, psig, pgam, pthe, ppic, pval, pulow, pvlow, &           pt, pu, pv, pmea, pstd, psig, pgam, pthe, ppic, pval, pulow, pvlow, &
105           pdudt, pdvdt, pdtdt)           pdudt, pdvdt, pdtdt)
106    
Legend:
Removed from v.134  
changed lines
  Added in v.150
  ViewVC Help
Powered by ViewVC 1.1.21