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

Diff of /trunk/dyn3d/gcm.f90

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

revision 351 by guez, Tue Nov 12 15:18:14 2019 UTC revision 352 by guez, Thu Jan 16 19:20:50 2020 UTC
# Line 10  PROGRAM gcm Line 10  PROGRAM gcm
10    
11    ! Libraries:    ! Libraries:
12    use netcdf95, only: nf95_close    use netcdf95, only: nf95_close
13      use xios, only: xios_initialize, xios_finalize
14    
15    use comconst, only: dtvr, iniconst    use comconst, only: dtvr, iniconst
16    use comdissnew, only: read_comdissnew    use comdissnew, only: read_comdissnew
# Line 62  PROGRAM gcm Line 63  PROGRAM gcm
63    read (unit=*, nml=main_nml)    read (unit=*, nml=main_nml)
64    write(unit_nml, nml=main_nml)    write(unit_nml, nml=main_nml)
65    
66      call xios_initialize("LMDZE")
67      
68    ! Choix du calendrier :    ! Choix du calendrier :
69    if (true_calendar) then    if (true_calendar) then
70       call ioconf_calendar('gregorian')       call ioconf_calendar('gregorian')
# Line 100  PROGRAM gcm Line 103  PROGRAM gcm
103       call nf95_close(Ncid(i))       call nf95_close(Ncid(i))
104    end do    end do
105    
106      call xios_finalize
107    
108    print *, 'Simulation finished'    print *, 'Simulation finished'
109    print *, 'Everything is cool'    print *, 'Everything is cool'
110    
Legend:
Removed from v.351  
changed lines
  Added in v.352
  ViewVC Help
Powered by ViewVC 1.1.21