| 8 |
! "divgrad2", "nxgraro2"). Possibilit\'e de choisir le sch\'ema pour |
! "divgrad2", "nxgraro2"). Possibilit\'e de choisir le sch\'ema pour |
| 9 |
! l'advection de "q", en modifiant "iadv" dans "traceur.def". |
! l'advection de "q", en modifiant "iadv" dans "traceur.def". |
| 10 |
|
|
| 11 |
use comconst, only: daysec, dtvr, iniconst |
use comconst, only: dtvr, iniconst |
| 12 |
use comdissnew, only: read_comdissnew |
use comdissnew, only: read_comdissnew |
| 13 |
use comgeom, only: aire_2d, inigeom |
use comgeom, only: aire_2d, inigeom |
| 14 |
use comgeomphy, only: airephy |
use comgeomphy, only: airephy |
| 15 |
use conf_gcm_m, only: day_step, iperiod, iecri, iphysiq, nday, conf_gcm, & |
use conf_gcm_m, only: day_step, iperiod, iecri, iphysiq, nday, conf_gcm, & |
| 16 |
iflag_phys |
iflag_phys |
| 17 |
use conf_guide_m, only: conf_guide |
use conf_guide_m, only: conf_guide |
| 18 |
use dimens_m, only: iim, jjm, llm, nqmx |
use dimensions, only: iim, jjm, llm, nqmx |
| 19 |
USE disvert_m, ONLY : disvert |
USE disvert_m, ONLY : disvert |
| 20 |
use dynetat0_m, only: dynetat0, day_ini |
use dynetat0_m, only: dynetat0, day_ini |
| 21 |
use dynredem0_m, only: dynredem0 |
use dynredem0_m, only: dynredem0 |
| 87 |
|
|
| 88 |
! Initialisation des entr\'ees-sorties : |
! Initialisation des entr\'ees-sorties : |
| 89 |
CALL dynredem0(day_ini + nday, phis) |
CALL dynredem0(day_ini + nday, phis) |
| 90 |
CALL inithist(dtvr, nqmx, t_ops = iecri * daysec, t_wrt = iecri * daysec) |
CALL inithist(t_ops = iecri * dtvr, t_wrt = iecri * dtvr) |
| 91 |
call init_dynzon(dt_app = dtvr * iperiod) |
call init_dynzon(dt_app = dtvr * iperiod) |
| 92 |
|
|
| 93 |
CALL conf_guide |
CALL conf_guide |
Parent Directory
| 
Revision Log
| 
Patch