94 |
real, intent(in):: rg |
real, intent(in):: rg |
95 |
real ome |
real ome |
96 |
REAL, intent(in):: plat(nlon),plon(nlon) |
REAL, intent(in):: plat(nlon),plon(nlon) |
97 |
real phis(nlon) |
real, intent(in):: phis(nlon) |
98 |
REAL dragu(nlon),liftu(nlon),phyu(nlon) |
REAL dragu(nlon),liftu(nlon),phyu(nlon) |
99 |
REAL dragv(nlon),liftv(nlon),phyv(nlon) |
REAL dragv(nlon),liftv(nlon),phyv(nlon) |
100 |
REAL, intent(in):: p(nlon,nlev+1) |
REAL, intent(in):: p(nlon,nlev+1) |
101 |
real u(nlon,nlev), v(nlon,nlev) |
real, intent(in):: u(nlon,nlev), v(nlon,nlev) |
102 |
c |
c |
103 |
c Variables locales: |
c Variables locales: |
104 |
c |
c |