16 |
use dimphy, only: klon |
use dimphy, only: klon |
17 |
use dimsoil, only: nsoilmx |
use dimsoil, only: nsoilmx |
18 |
use disvert_m, only: ap, bp, preff, pa, disvert |
use disvert_m, only: ap, bp, preff, pa, disvert |
19 |
use dynetat0_m, only: day_ref, annee_ref, xprimp025, xprimm025, rlatu1, & |
use dynetat0_m, only: day_ref, annee_ref, rlatu, rlatv, rlonu, rlonv, & |
20 |
rlatu2, rlatu, rlatv, yprimu1, yprimu2, rlonu, rlonv, xprimu, xprimv |
fyhyp, fxhyp |
21 |
use dynredem0_m, only: dynredem0 |
use dynredem0_m, only: dynredem0 |
22 |
use dynredem1_m, only: dynredem1 |
use dynredem1_m, only: dynredem1 |
23 |
use exner_hyb_m, only: exner_hyb |
use exner_hyb_m, only: exner_hyb |
|
use fxhyp_m, only: fxhyp |
|
|
use fyhyp_m, only: fyhyp |
|
24 |
use geopot_m, only: geopot |
use geopot_m, only: geopot |
25 |
use grille_m_m, only: grille_m |
use grille_m_m, only: grille_m |
26 |
use grid_change, only: init_dyn_phy, dyn_phy |
use grid_change, only: init_dyn_phy, dyn_phy |
123 |
pa = 5e4 |
pa = 5e4 |
124 |
CALL disvert |
CALL disvert |
125 |
call test_disvert |
call test_disvert |
126 |
|
CALL fyhyp |
127 |
CALL fyhyp(rlatu, rlatv, rlatu2, yprimu2, rlatu1, yprimu1) |
CALL fxhyp |
|
CALL fxhyp(xprimm025, rlonv, xprimv, rlonu, xprimu, xprimp025) |
|
|
|
|
|
rlatu(1) = pi / 2. |
|
|
rlatu(jjm + 1) = -rlatu(1) |
|
|
|
|
128 |
CALL inigeom |
CALL inigeom |
129 |
CALL inifilr |
CALL inifilr |
130 |
|
|