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

Diff of /trunk/dyn3d/conf_gcm.f

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

revision 39 by guez, Tue Jan 25 15:11:05 2011 UTC revision 56 by guez, Tue Jan 10 19:02:02 2012 UTC
# Line 16  module conf_gcm_m Line 16  module conf_gcm_m
16    ! number of time steps between output of control variables    ! number of time steps between output of control variables
17    
18    integer:: iecri = 1 ! time interval between outputs to "dyn_hist.nc" (in days)    integer:: iecri = 1 ! time interval between outputs to "dyn_hist.nc" (in days)
19    integer:: iphysiq = 5 ! période de la physique en pas de temps de la dynamique  
20      integer:: iphysiq = 5
21      ! number of time steps of dynamics between calls to physics
22    
23    integer:: dayref = 1 ! jour de l'année de l'état initial    integer:: dayref = 1 ! jour de l'année de l'état initial
24    ! (= 350 si 20 décembre par exemple)    ! (= 350 si 20 décembre par exemple)
# Line 28  module conf_gcm_m Line 30  module conf_gcm_m
30    ! gcm.def avec remise a zero des compteurs de pas de temps)    ! gcm.def avec remise a zero des compteurs de pas de temps)
31    ! (pas de remise a zero: on garde la date du fichier restart)    ! (pas de remise a zero: on garde la date du fichier restart)
32    
33    REAL:: periodav = 1. ! time interval between outputs to "histmoy" (in days)    integer:: periodav = 1
34      ! time interval between outputs in the dynamical part, in days
35    
36    logical:: offline = .FALSE.    logical:: offline = .FALSE.
37    ! permet de mettre en route la nouvelle parametrisation de l'eau liquide    ! permet de mettre en route la nouvelle parametrisation de l'eau liquide
# Line 70  contains Line 73  contains
73      read(unit=*, nml=conf_gcm_nml)      read(unit=*, nml=conf_gcm_nml)
74      write(unit=*, nml=conf_gcm_nml)      write(unit=*, nml=conf_gcm_nml)
75    
76      IF (MOD(day_step, iperiod) /= 0) call abort_gcm(modname = "gcm", &      IF (MOD(day_step, iperiod) /= 0) call abort_gcm(modname = "conf_gcm", &
77           message = &           message = &
78           'Il faut choisir un nombre de pas par jour multiple de "iperiod".', &           'Il faut choisir un nombre de pas par jour multiple de "iperiod".', &
79           ierr = 1)           ierr = 1)
80    
81      IF (MOD(day_step,iphysiq)/= 0) call abort_gcm(modname = "gcm", message = &      IF (MOD(day_step,iphysiq)/= 0) call abort_gcm(modname = "conf_gcm", &
82             message = &
83           'Il faut choisir un nombre de pas par jour multiple de "iphysiq".', &           'Il faut choisir un nombre de pas par jour multiple de "iphysiq".', &
84           ierr = 1)           ierr = 1)
85    
Legend:
Removed from v.39  
changed lines
  Added in v.56
  ViewVC Help
Powered by ViewVC 1.1.21