/[lmdze]/trunk/dyn3d/conf_gcm.f90
ViewVC logotype

Diff of /trunk/dyn3d/conf_gcm.f90

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 330 by guez, Thu Jun 13 14:40:06 2019 UTC revision 331 by guez, Wed Jul 31 17:10:31 2019 UTC
# Line 18  module conf_gcm_m Line 18  module conf_gcm_m
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
# Line 72  contains Line 73  contains
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    
Legend:
Removed from v.330  
changed lines
  Added in v.331
  ViewVC Help
Powered by ViewVC 1.1.21