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 |
26 |
use inithist_m, only: inithist |
use inithist_m, only: inithist |
27 |
use init_dynzon_m, only: init_dynzon |
use init_dynzon_m, only: init_dynzon |
28 |
USE ioconf_calendar_m, only: ioconf_calendar |
USE ioconf_calendar_m, only: ioconf_calendar |
|
use jumble, only: new_unit |
|
29 |
use leapfrog_m, only: leapfrog |
use leapfrog_m, only: leapfrog |
30 |
use netcdf95, only: nf95_close |
use netcdf95, only: nf95_close |
31 |
use suphec_m, only: suphec |
use suphec_m, only: suphec |
32 |
use unit_nml_m, only: unit_nml |
use unit_nml_m, only: unit_nml, set_unit_nml |
|
use yoethf_m, only: yoethf |
|
33 |
use createnewfield_m, only: NbField, Ncid |
use createnewfield_m, only: NbField, Ncid |
34 |
|
|
35 |
IMPLICIT NONE |
IMPLICIT NONE |
49 |
|
|
50 |
!------------------------------------------------------------ |
!------------------------------------------------------------ |
51 |
|
|
52 |
call new_unit(unit_nml) |
call set_unit_nml |
53 |
open(unit_nml, file="used_namelists.txt", status="replace", action="write") |
open(unit_nml, file="used_namelists.txt", status="replace", action="write") |
54 |
|
|
55 |
CALL conf_gcm |
CALL conf_gcm |
79 |
IF (iflag_phys) THEN |
IF (iflag_phys) THEN |
80 |
airephy = pack(aire_2d, dyn_phy) |
airephy = pack(aire_2d, dyn_phy) |
81 |
CALL suphec |
CALL suphec |
|
call yoethf |
|
82 |
ENDIF |
ENDIF |
83 |
|
|
84 |
! Initialisation des entr\'ees-sorties : |
! Initialisation des entr\'ees-sorties : |
85 |
CALL dynredem0(day_ini + nday, phis) |
CALL dynredem0(day_ini + nday, phis) |
86 |
CALL inithist(t_ops = iecri * dtvr, t_wrt = iecri * dtvr) |
CALL inithist(t_ops = dtvr, t_wrt = dtvr) |
87 |
call init_dynzon(dt_app = dtvr * iperiod) |
call init_dynzon(dt_app = dtvr * iperiod) |
88 |
|
|
89 |
CALL conf_guide |
CALL conf_guide |