/[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 61 by guez, Fri Apr 20 14:58:43 2012 UTC revision 68 by guez, Wed Nov 14 16:59:30 2012 UTC
# Line 118  PROGRAM gcm Line 118  PROGRAM gcm
118    ENDIF    ENDIF
119    
120    CALL iniconst    CALL iniconst
   close(unit_nml)  
121    CALL inigeom ! initialisation de la géometrie    CALL inigeom ! initialisation de la géometrie
122    CALL inifilr ! initialisation du filtre    CALL inifilr ! initialisation du filtre
123    CALL inidissip    CALL inidissip
# Line 169  PROGRAM gcm Line 168  PROGRAM gcm
168    ! Intégration temporelle du modèle :    ! Intégration temporelle du modèle :
169    CALL leapfrog(ucov, vcov, teta, ps, masse, phis, q, time_0)    CALL leapfrog(ucov, vcov, teta, ps, masse, phis, q, time_0)
170    
171      close(unit_nml)
172    call histclo    call histclo
173    print *, 'Simulation finished'    print *, 'Simulation finished'
174    print *, 'Everything is cool'    print *, 'Everything is cool'
Legend:
Removed from v.61  
changed lines
  Added in v.68
  ViewVC Help
Powered by ViewVC 1.1.21