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