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

Diff of /trunk/Sources/dyn3d/gcm.f

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

revision 57 by guez, Mon Jan 30 12:54:02 2012 UTC revision 68 by guez, Wed Nov 14 16:59:30 2012 UTC
# Line 20  PROGRAM gcm Line 20  PROGRAM gcm
20    use dynetat0_m, only: dynetat0, day_ini    use dynetat0_m, only: dynetat0, day_ini
21    use dynredem0_m, only: dynredem0    use dynredem0_m, only: dynredem0
22    use grid_change, only: dyn_phy, init_dyn_phy    use grid_change, only: dyn_phy, init_dyn_phy
23    use histcom, only: histclo    use histclo_m, only: histclo
24    use iniadvtrac_m, only: iniadvtrac    use iniadvtrac_m, only: iniadvtrac
25    use inidissip_m, only: inidissip    use inidissip_m, only: inidissip
26    use inifilr_m, only: inifilr    use inifilr_m, only: inifilr
# 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.57  
changed lines
  Added in v.68
  ViewVC Help
Powered by ViewVC 1.1.21