2 |
|
|
3 |
! Authors: P. Le Van, L. Fairhead, F. Hourdin |
! Authors: P. Le Van, L. Fairhead, F. Hourdin |
4 |
! From "gcm.F", version 1.4, 2006/04/04 15:05:16 |
! From "gcm.F", version 1.4, 2006/04/04 15:05:16 |
5 |
! General circulation model of LMD |
|
6 |
! Avec coordonnées verticales hybrides, avec nouveaux opérateurs de |
! General circulation model of LMD. Avec coordonnée verticale |
7 |
! dissipation "*" (gradiv2, divgrad2, nxgraro2) |
! hybride, avec nouveaux opérateurs de dissipation "*" ("gradiv2", |
8 |
! Possibilité de choisir le schéma pour l'advection de "q", en |
! "divgrad2", "nxgraro2"). Possibilité de choisir le schéma pour |
9 |
! modifiant "iadv" dans "traceur.def". |
! l'advection de "q", en modifiant "iadv" dans "traceur.def". |
|
! Pour Van-Leer plus vapeur d'eau saturée : iadv(1)=4 |
|
|
! Pour Van-Leer : iadv=10 |
|
10 |
|
|
11 |
use clesphys2, only: read_clesphys2 |
use clesphys2, only: read_clesphys2 |
12 |
use com_io_dyn, only: histid, histvid, histaveid |
use com_io_dyn, only: histid, histvid, histaveid |
33 |
use suphec_m, only: suphec |
use suphec_m, only: suphec |
34 |
use temps, only: day_ref, annee_ref, day_end, itau_dyn |
use temps, only: day_ref, annee_ref, day_end, itau_dyn |
35 |
use tracstoke, only: istdyn, istphy |
use tracstoke, only: istdyn, istphy |
36 |
|
use yoethf_m, only: yoethf |
37 |
|
|
38 |
IMPLICIT NONE |
IMPLICIT NONE |
39 |
|
|
145 |
|
|
146 |
airephy = pack(aire_2d, dyn_phy) |
airephy = pack(aire_2d, dyn_phy) |
147 |
CALL suphec |
CALL suphec |
148 |
|
call yoethf |
149 |
ENDIF |
ENDIF |
150 |
|
|
151 |
! Initialisation des entrées-sorties : |
! Initialisation des entrées-sorties : |