9 |
! l'advection de "q", en modifiant "iadv" dans "traceur.def". |
! l'advection de "q", en modifiant "iadv" dans "traceur.def". |
10 |
|
|
11 |
USE calendar, only: ioconf_calendar |
USE calendar, only: ioconf_calendar |
|
use clesphys2, only: read_clesphys2 |
|
12 |
use comconst, only: daysec, cpp, dtvr, g, rad, r |
use comconst, only: daysec, cpp, dtvr, g, rad, r |
13 |
use comgeom, only: rlatu, aire_2d, cu_2d, cv_2d, rlonv |
use comgeom, only: rlatu, aire_2d, cu_2d, cv_2d, rlonv |
14 |
use comgeomphy, only: airephy, cuphy, cvphy, rlatd, rlond |
use comgeomphy, only: airephy, cuphy, cvphy, rlatd, rlond |
77 |
call ioconf_calendar('360d') |
call ioconf_calendar('360d') |
78 |
endif |
endif |
79 |
|
|
|
! Lecture des fichiers "gcm.def" ou "run.def" : |
|
|
call read_clesphys2 |
|
|
|
|
80 |
! Initialisation des traceurs |
! Initialisation des traceurs |
81 |
! Choix du schéma pour l'advection dans le fichier "traceur.def" ou via INCA |
! Choix du schéma pour l'advection dans le fichier "traceur.def" ou via INCA |
82 |
call iniadvtrac |
call iniadvtrac |