5 |
contains |
contains |
6 |
|
|
7 |
SUBROUTINE physiq(lafin, rdayvrai, time, dtphys, paprs, play, pphi, pphis, & |
SUBROUTINE physiq(lafin, rdayvrai, time, dtphys, paprs, play, pphi, pphis, & |
8 |
u, v, t, qx, omega, d_u, d_v, d_t, d_qx, d_ps, dudyn, PVteta) |
u, v, t, qx, omega, d_u, d_v, d_t, d_qx, d_ps, dudyn) |
9 |
|
|
10 |
! From phylmd/physiq.F, version 1.22 2006/02/20 09:38:28 |
! From phylmd/physiq.F, version 1.22 2006/02/20 09:38:28 |
11 |
! (subversion revision 678) |
! (subversion revision 678) |
107 |
INTEGER nbteta |
INTEGER nbteta |
108 |
PARAMETER(nbteta = 3) |
PARAMETER(nbteta = 3) |
109 |
|
|
|
REAL PVteta(klon, nbteta) |
|
|
! (output vorticite potentielle a des thetas constantes) |
|
|
|
|
110 |
LOGICAL ok_gust ! pour activer l'effet des gust sur flux surface |
LOGICAL ok_gust ! pour activer l'effet des gust sur flux surface |
111 |
PARAMETER (ok_gust = .FALSE.) |
PARAMETER (ok_gust = .FALSE.) |
112 |
|
|