--- trunk/libf/dyn3d/conf_gcm.f90	2008/07/25 19:59:34	13
+++ trunk/libf/dyn3d/conf_gcm.f90	2010/03/09 15:27:15	26
@@ -18,25 +18,22 @@
   ! frequence du groupement des flux (en pas de temps) 
 
   integer:: iconser= 240
-  ! periode de sortie des variables de controle
-  ! (En pas de temps)
+  ! période de sortie des variables de contrôle (en pas de temps)
 
   integer:: iecri= 1 ! période d'écriture du fichier "dyn_hist.nc" (en jours)
 
-  integer:: idissip= 10 ! periode de la dissipation (en pas)
-
   integer:: iphysiq= 5
-  ! Help = Periode de la physique en pas de temps de la dynamique.
+  ! Période de la physique en pas de temps de la dynamique.
 
   integer:: dayref = 1 ! jour de l'année de l'état initial
   ! (= 350 si 20 décembre par exemple)
 
   integer:: anneeref = 1998 ! Annee de l'etat initial (avec 4 chiffres)
 
-  integer:: raz_date = 0 ! Remise a zero de la date initiale
-  ! 0 pas de remise a zero, on garde la date du fichier restart
-  ! 1 prise en compte de la date de gcm.def avec remise a zero
-  ! des compteurs de pas de temps
+  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)
 
   REAL:: periodav= 1.
   ! periode de stockage fichier histmoy (en jour) 
@@ -68,7 +65,7 @@
     use iniprint, only: read_iniprint
 
     namelist /conf_gcm_nml/dayref, anneeref, raz_date, nday, day_step, &
-         iperiod, iapp_tracvl, iconser, iecri, periodav, idissip, &
+         iperiod, iapp_tracvl, iconser, iecri, periodav, &
          iphysiq, clon, clat, grossismx, grossismy, dzoomx, dzoomy, taux, &
          tauy, offline