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, iphysiq, nday, conf_gcm, iflag_phys |
|
iflag_phys |
|
16 |
use conf_guide_m, only: conf_guide |
use conf_guide_m, only: conf_guide |
17 |
use dimensions, only: iim, jjm, llm, nqmx |
use dimensions, only: iim, jjm, llm, nqmx |
18 |
USE disvert_m, ONLY : disvert |
USE disvert_m, ONLY : disvert |
31 |
use netcdf95, only: nf95_close |
use netcdf95, only: nf95_close |
32 |
use suphec_m, only: suphec |
use suphec_m, only: suphec |
33 |
use unit_nml_m, only: unit_nml |
use unit_nml_m, only: unit_nml |
|
use yoethf_m, only: yoethf |
|
34 |
use createnewfield_m, only: NbField, Ncid |
use createnewfield_m, only: NbField, Ncid |
35 |
|
|
36 |
IMPLICIT NONE |
IMPLICIT NONE |
80 |
IF (iflag_phys) THEN |
IF (iflag_phys) THEN |
81 |
airephy = pack(aire_2d, dyn_phy) |
airephy = pack(aire_2d, dyn_phy) |
82 |
CALL suphec |
CALL suphec |
|
call yoethf |
|
83 |
ENDIF |
ENDIF |
84 |
|
|
85 |
! Initialisation des entr\'ees-sorties : |
! Initialisation des entr\'ees-sorties : |
86 |
CALL dynredem0(day_ini + nday, phis) |
CALL dynredem0(day_ini + nday, phis) |
87 |
CALL inithist(t_ops = iecri * dtvr, t_wrt = iecri * dtvr) |
CALL inithist(t_ops = dtvr, t_wrt = dtvr) |
88 |
call init_dynzon(dt_app = dtvr * iperiod) |
call init_dynzon(dt_app = dtvr * iperiod) |
89 |
|
|
90 |
CALL conf_guide |
CALL conf_guide |