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

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

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

trunk/libf/phylmd/Orography/drag_noro.f90 revision 52 by guez, Fri Sep 23 12:28:01 2011 UTC trunk/Sources/phylmd/Orography/drag_noro.f 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 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, 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.52  
changed lines
  Added in v.150
  ViewVC Help
Powered by ViewVC 1.1.21