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 |
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') |
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 |
|
|