/[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 39 by guez, Tue Jan 25 15:11:05 2011 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    integer:: iphysiq = 5 ! période de la physique en pas de temps de la dynamique
20    
21    integer:: dayref = 1 ! jour de l'année de l'état initial    integer:: dayref = 1 ! jour de l'année de l'état initial
22    ! (= 350 si 20 décembre par exemple)    ! (= 350 si 20 décembre par exemple)
# Line 28  module conf_gcm_m Line 28  module conf_gcm_m
28    ! gcm.def avec remise a zero des compteurs de pas de temps)    ! gcm.def avec remise a zero des compteurs de pas de temps)
29    ! (pas de remise a zero: on garde la date du fichier restart)    ! (pas de remise a zero: on garde la date du fichier restart)
30    
31    REAL:: periodav= 1. ! période de stockage fichier histmoy (en jour)    REAL:: periodav = 1. ! time interval between outputs to "histmoy" (in days)
32    
33    logical:: offline = .FALSE.    logical:: offline = .FALSE.
34    ! 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 75  contains Line 75  contains
75           'Il faut choisir un nombre de pas par jour multiple de "iperiod".', &           'Il faut choisir un nombre de pas par jour multiple de "iperiod".', &
76           ierr = 1)           ierr = 1)
77    
78      IF (MOD(day_step,iphysiq)/=0) call abort_gcm(modname = "gcm", message = &      IF (MOD(day_step,iphysiq)/= 0) call abort_gcm(modname = "gcm", message = &
79           'Il faut choisir un nombre de pas par jour multiple de "iphysiq".', &           'Il faut choisir un nombre de pas par jour multiple de "iphysiq".', &
80           ierr = 1)           ierr = 1)
81    
Legend:
Removed from v.33  
changed lines
  Added in v.39
  ViewVC Help
Powered by ViewVC 1.1.21