18 |
! number of time steps of dynamics between output of control variables |
! number of time steps of dynamics between output of control variables |
19 |
|
|
20 |
integer, protected:: iphysiq = 5 |
integer, protected:: iphysiq = 5 |
21 |
! number of time steps of dynamics between calls to physics |
! Number of time steps of dynamics between calls to physics. Must be |
22 |
|
! >= 1. 1 means one call to physics at each time step of dynamics. |
23 |
|
|
24 |
logical, protected:: raz_date = .false. |
logical, protected:: raz_date = .false. |
25 |
! prise en compte de la date initiale de la namelist et remise \`a |
! prise en compte de la date initiale de la namelist et remise \`a |
73 |
read(unit=*, nml=conf_gcm_nml) |
read(unit=*, nml=conf_gcm_nml) |
74 |
write(unit_nml, nml=conf_gcm_nml) |
write(unit_nml, nml=conf_gcm_nml) |
75 |
|
|
76 |
|
if (iphysiq <= 0 .or. iperiod <= 0 .or. day_step <= 0) & |
77 |
|
call abort_gcm("conf_gcm", & |
78 |
|
"iphysiq <= 0 or iperiod <= 0 or day_step <= 0") |
79 |
|
|
80 |
IF (MOD(day_step, iperiod) /= 0) call abort_gcm("conf_gcm", & |
IF (MOD(day_step, iperiod) /= 0) call abort_gcm("conf_gcm", & |
81 |
'Il faut choisir un nombre de pas par jour multiple de "iperiod".') |
'Il faut choisir un nombre de pas par jour multiple de "iperiod".') |
82 |
|
|