8 |
! "divgrad2", "nxgraro2"). Possibilité de choisir le schéma pour |
! "divgrad2", "nxgraro2"). Possibilité de choisir le schéma pour |
9 |
! l'advection de "q", en modifiant "iadv" dans "traceur.def". |
! l'advection de "q", en modifiant "iadv" dans "traceur.def". |
10 |
|
|
|
USE calendar, only: ioconf_calendar |
|
11 |
use comconst, only: daysec, dtvr, iniconst |
use comconst, only: daysec, dtvr, iniconst |
12 |
use comgeom, only: rlatu, aire_2d, cu_2d, cv_2d, rlonv, inigeom |
use comgeom, only: rlatu, aire_2d, cu_2d, cv_2d, rlonv, inigeom |
13 |
use comgeomphy, only: airephy, cuphy, cvphy, rlatd, rlond |
use comgeomphy, only: airephy, cuphy, cvphy, rlatd, rlond |
26 |
use initdynav_m, only: initdynav |
use initdynav_m, only: initdynav |
27 |
use inithist_m, only: inithist |
use inithist_m, only: inithist |
28 |
use init_dynzon_m, only: init_dynzon |
use init_dynzon_m, only: init_dynzon |
29 |
|
USE ioconf_calendar_m, only: ioconf_calendar |
30 |
use jumble, only: new_unit |
use jumble, only: new_unit |
31 |
use leapfrog_m, only: leapfrog |
use leapfrog_m, only: leapfrog |
32 |
use suphec_m, only: suphec |
use suphec_m, only: suphec |