/[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 127 by guez, Fri Sep 19 17:36:20 2014 UTC revision 128 by guez, Thu Feb 12 16:23:33 2015 UTC
# Line 87  PROGRAM gcm Line 87  PROGRAM gcm
87    CALL iniconst    CALL iniconst
88    
89    ! Lecture du fichier "start.nc" :    ! Lecture du fichier "start.nc" :
90    CALL dynetat0(vcov, ucov, teta, q, masse, ps, phis, time_0)    CALL dynetat0(vcov, ucov, teta, q, masse, ps, phis)
91    
92    ! On remet le calendrier à zéro si demandé :    ! On remet le calendrier à zéro si demandé :
93    if (raz_date) then    if (raz_date) then
# Line 96  PROGRAM gcm Line 96  PROGRAM gcm
96       day_ref = dayref       day_ref = dayref
97       day_ini = dayref       day_ini = dayref
98       itau_dyn = 0       itau_dyn = 0
      time_0 = 0.  
99    else    else
100       print *, 'On garde les dates du fichier "start".'       print *, 'On garde les dates du fichier "start".'
101    endif    endif
# Line 152  PROGRAM gcm Line 151  PROGRAM gcm
151    CALL conf_guide    CALL conf_guide
152    
153    ! Intégration temporelle du modèle :    ! Intégration temporelle du modèle :
154    CALL leapfrog(ucov, vcov, teta, ps, masse, phis, q, time_0)    CALL leapfrog(ucov, vcov, teta, ps, masse, phis, q)
155    
156    close(unit_nml)    close(unit_nml)
157    call histclo    call histclo
Legend:
Removed from v.127  
changed lines
  Added in v.128
  ViewVC Help
Powered by ViewVC 1.1.21