--- trunk/dyn3d/conf_gcm.f 2014/04/25 14:58:31 97 +++ trunk/dyn3d/conf_gcm.f 2014/07/15 13:43:24 102 @@ -26,9 +26,9 @@ integer:: anneeref = 1998 ! Annee de l'etat initial (avec 4 chiffres) logical:: raz_date = .false. - ! (remise a zero de la date initiale, prise en compte de la date de - ! gcm.def avec remise a zero des compteurs de pas de temps) - ! (pas de remise a zero: on garde la date du fichier restart) + ! prise en compte de la date initiale de la namelist et remise à + ! zéro des compteurs de pas de temps (sinon on garde la date du + ! fichier restart) integer:: periodav = 1 ! time interval between outputs in the dynamical part, in days @@ -113,6 +113,10 @@ 'Il faut choisir un nombre de pas par jour multiple de "iphysiq".', & ierr = 1) + if (ok_guide .and. mod(day_step, 4 * iperiod) /= 0) call & + abort_gcm(modname = "conf_gcm", & + message = 'ok_guide day_step iperiod', ierr = 1) + IF (grossismx < 1.) THEN PRINT *, 'Error: grossismx < 1' STOP 1