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

Diff of /trunk/Sources/dyn3d/conf_gcm.f

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

trunk/libf/dyn3d/conf_gcm.f90 revision 57 by guez, Mon Jan 30 12:54:02 2012 UTC trunk/dyn3d/conf_gcm.f revision 102 by guez, Tue Jul 15 13:43:24 2014 UTC
# Line 26  module conf_gcm_m Line 26  module conf_gcm_m
26    integer:: anneeref = 1998 ! Annee de l'etat initial (avec 4 chiffres)    integer:: anneeref = 1998 ! Annee de l'etat initial (avec 4 chiffres)
27    
28    logical:: raz_date = .false.    logical:: raz_date = .false.
29    ! (remise a zero de la date initiale, prise en compte de la date de    ! prise en compte de la date initiale de la namelist et remise à
30    ! gcm.def avec remise a zero des compteurs de pas de temps)    ! zéro des compteurs de pas de temps (sinon on garde la date du
31    ! (pas de remise a zero: on garde la date du fichier restart)    ! fichier restart)
32    
33    integer:: periodav = 1    integer:: periodav = 1
34    ! time interval between outputs in the dynamical part, in days    ! time interval between outputs in the dynamical part, in days
# Line 43  module conf_gcm_m Line 43  module conf_gcm_m
43    ! y = pure Matsuno sinon c'est du Matsuno-leapfrog    ! y = pure Matsuno sinon c'est du Matsuno-leapfrog
44    
45    logical:: fxyhypb = .TRUE.    logical:: fxyhypb = .TRUE.
46    ! (fonction f(y) à dérivée tangente hyperbolique, sinon à dérivée    ! fonction f(y) à dérivée tangente hyperbolique, sinon à dérivée
47    ! sinusoïdale)    ! sinusoïdale
48    
49    logical:: ysinus = .TRUE.    logical:: ysinus = .TRUE.
50    ! (Fonction f(y) avec y = Sin(latit.) si = .true. sinon y = latit.)    ! (Fonction f(y) avec y = Sin(latit.) si = .true. sinon y = latit.)
# Line 64  contains Line 64  contains
64      ! Auteurs : L. Fairhead, P. Le Van      ! Auteurs : L. Fairhead, P. Le Van
65      ! Version du 29/04/97      ! Version du 29/04/97
66    
67      ! On ne compare pas les valeurs des paramètres du zoom, grossismx,      ! On ne compare pas les paramètres du zoom (grossismx, grossismy,
68      ! grossismy, clon, clat, fxyhypb lues sur le fichier start avec      ! clon, clat, fxyhypb) lus sur le fichier start avec ceux lus dans
69      ! celles passées par run.def, au début du gcm.      ! une namelist, au début de gcm. Ces paramètres définissent entre
70      ! Ces paramètres définissent entre autres la grille et doivent être      ! autres la grille et doivent être identiques, sinon il y aura
71      ! cohérents, sinon il y aura divergence du gcm.      ! divergence du gcm.
72    
73      use abort_gcm_m, only: abort_gcm      use abort_gcm_m, only: abort_gcm
74      use comdissnew, only: read_comdissnew      use comdissnew, only: read_comdissnew
# Line 108  contains Line 108  contains
108           'Il faut choisir un nombre de pas par jour multiple de "iperiod".', &           'Il faut choisir un nombre de pas par jour multiple de "iperiod".', &
109           ierr = 1)           ierr = 1)
110    
111      IF (MOD(day_step,iphysiq)/= 0) call abort_gcm(modname = "conf_gcm", &      IF (MOD(day_step, iphysiq)/= 0) call abort_gcm(modname = "conf_gcm", &
112           message = &           message = &
113           'Il faut choisir un nombre de pas par jour multiple de "iphysiq".', &           'Il faut choisir un nombre de pas par jour multiple de "iphysiq".', &
114           ierr = 1)           ierr = 1)
115    
116        if (ok_guide .and. mod(day_step, 4 * iperiod) /= 0) call &
117             abort_gcm(modname = "conf_gcm", &
118             message = 'ok_guide day_step iperiod', ierr = 1)
119    
120      IF (grossismx < 1.) THEN      IF (grossismx < 1.) THEN
121         PRINT *, 'Error: grossismx < 1'         PRINT *, 'Error: grossismx < 1'
122         STOP 1         STOP 1
Legend:
Removed from v.57  
changed lines
  Added in v.102
  ViewVC Help
Powered by ViewVC 1.1.21