/[lmdze]/trunk/dyn3d/gcm.f
ViewVC logotype

Diff of /trunk/dyn3d/gcm.f

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

revision 92 by guez, Wed Mar 26 18:16:05 2014 UTC revision 98 by guez, Tue May 13 17:23:16 2014 UTC
# Line 84  PROGRAM gcm Line 84  PROGRAM gcm
84    ! Lecture du fichier "start.nc" :    ! Lecture du fichier "start.nc" :
85    CALL dynetat0(vcov, ucov, teta, q, masse, ps, phis, time_0)    CALL dynetat0(vcov, ucov, teta, q, masse, ps, phis, time_0)
86    
87    ! On remet le calendrier à zero si demandé :    ! On remet le calendrier à zéro si demandé :
88    if (annee_ref /= anneeref .or. day_ref /= dayref) then    if (raz_date) then
89       print *, 'Attention : les dates initiales lues dans le fichier ' // &       print *, 'On réinitialise à la date lue dans la namelist.'
90            '"start" ne correspondent pas à celles lues dans "gcm.def".'       annee_ref = anneeref
91       if (raz_date) then       day_ref = dayref
92          print *, 'On réinitialise à la date lue dans "gcm.def".'       day_ini = dayref
93          annee_ref = anneeref       itau_dyn = 0
94          day_ref = dayref       time_0 = 0.
95          day_ini = dayref    else
96          itau_dyn = 0       print *, 'On garde les dates du fichier "start".'
         time_0 = 0.  
      else  
         print *, 'On garde les dates du fichier "start".'  
      endif  
   ELSE  
      raz_date = .false.  
97    endif    endif
98    
99    CALL disvert    CALL disvert
Legend:
Removed from v.92  
changed lines
  Added in v.98
  ViewVC Help
Powered by ViewVC 1.1.21