8 |
|
|
9 |
SUBROUTINE calfis(nq, lafin, rdayvrai, heure, pucov, pvcov, pteta, pq, & |
SUBROUTINE calfis(nq, lafin, rdayvrai, heure, pucov, pvcov, pteta, pq, & |
10 |
pmasse, pps, ppk, pphis, pphi, pducov, pdvcov, pdteta, pdq, pw, & |
pmasse, pps, ppk, pphis, pphi, pducov, pdvcov, pdteta, pdq, pw, & |
11 |
clesphy0, pdufi, pdvfi, pdhfi, pdqfi, pdpsfi) |
pdufi, pdvfi, pdhfi, pdqfi, pdpsfi) |
12 |
|
|
13 |
! From dyn3d/calfis.F,v 1.3 2005/05/25 13:10:09 |
! From dyn3d/calfis.F,v 1.3 2005/05/25 13:10:09 |
14 |
|
|
99 |
REAL pdpsfi(iim + 1,jjm + 1) |
REAL pdpsfi(iim + 1,jjm + 1) |
100 |
|
|
101 |
INTEGER, PARAMETER:: longcles = 20 |
INTEGER, PARAMETER:: longcles = 20 |
|
REAL, intent(in):: clesphy0(longcles) |
|
102 |
|
|
103 |
! Local variables : |
! Local variables : |
104 |
|
|
331 |
! Appel de la physique: |
! Appel de la physique: |
332 |
|
|
333 |
CALL physiq(nq, firstcal, lafin, rdayvrai, heure, dtphys, & |
CALL physiq(nq, firstcal, lafin, rdayvrai, heure, dtphys, & |
334 |
zplev, zplay, zphi, zphis, presnivs, clesphy0, zufi, zvfi, & |
zplev, zplay, zphi, zphis, presnivs, zufi, zvfi, & |
335 |
ztfi, zqfi, pvervel, zdufi, zdvfi, zdtfi, zdqfi, zdpsrf, pducov, & |
ztfi, zqfi, pvervel, zdufi, zdvfi, zdtfi, zdqfi, zdpsrf, pducov, & |
336 |
PVteta) ! IM diagnostique PVteta, Amip2 |
PVteta) ! IM diagnostique PVteta, Amip2 |
337 |
|
|