--- trunk/libf/dyn3d/conf_gcm.f90 2013/02/18 16:33:12 69 +++ trunk/dyn3d/conf_gcm.f 2014/05/13 17:23:16 98 @@ -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 @@ -43,8 +43,8 @@ ! y = pure Matsuno sinon c'est du Matsuno-leapfrog logical:: fxyhypb = .TRUE. - ! (fonction f(y) à dérivée tangente hyperbolique, sinon à dérivée - ! sinusoïdale) + ! fonction f(y) à dérivée tangente hyperbolique, sinon à dérivée + ! sinusoïdale logical:: ysinus = .TRUE. ! (Fonction f(y) avec y = Sin(latit.) si = .true. sinon y = latit.) @@ -64,11 +64,11 @@ ! Auteurs : L. Fairhead, P. Le Van ! Version du 29/04/97 - ! On ne compare pas les valeurs des paramètres du zoom, grossismx, - ! grossismy, clon, clat, fxyhypb lues sur le fichier start avec - ! celles passées par run.def, au début du gcm. - ! Ces paramètres définissent entre autres la grille et doivent être - ! cohérents, sinon il y aura divergence du gcm. + ! On ne compare pas les paramètres du zoom (grossismx, grossismy, + ! clon, clat, fxyhypb) lus sur le fichier start avec ceux lus dans + ! une namelist, au début de gcm. Ces paramètres définissent entre + ! autres la grille et doivent être identiques, sinon il y aura + ! divergence du gcm. use abort_gcm_m, only: abort_gcm use comdissnew, only: read_comdissnew