/[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 33 by guez, Fri Apr 9 10:56:14 2010 UTC revision 56 by guez, Tue Jan 10 19:02:02 2012 UTC
# Line 2  module conf_gcm_m Line 2  module conf_gcm_m
2    
3    IMPLICIT NONE    IMPLICIT NONE
4    
5    INTEGER:: nday= 10 ! nombre de jours d'intégration    INTEGER:: nday = 10 ! nombre de jours d'intégration
6    integer:: day_step= 240 ! nombre de pas par jour, multiple de iperiod    integer:: day_step = 240 ! nombre de pas par jour, multiple de iperiod
7    
8    integer:: iperiod= 5    integer:: iperiod = 5
9    ! periode pour le pas Matsuno (en pas de temps)    ! periode pour le pas Matsuno (en pas de temps)
10    
11    integer:: iapp_tracvl= 5    integer:: iapp_tracvl = 5
12    ! Should normally be equal to "iperiod"    ! Should normally be equal to "iperiod"
13    ! frequence du groupement des flux (en pas de temps)    ! frequence du groupement des flux (en pas de temps)
14    
15    integer:: iconser= 240 ! période de sortie des variables de contrôle    integer:: iconser = 240
16    ! (en pas de temps)    ! number of time steps between output of control variables
17    
18    integer:: iecri= 1 ! période d'écriture du fichier "dyn_hist.nc" (en jours)    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. ! période de stockage fichier histmoy (en jour)    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.33  
changed lines
  Added in v.56
  ViewVC Help
Powered by ViewVC 1.1.21