35 |
use tracstoke, only: istdyn, istphy |
use tracstoke, only: istdyn, istphy |
36 |
use unit_nml_m, only: unit_nml |
use unit_nml_m, only: unit_nml |
37 |
use yoethf_m, only: yoethf |
use yoethf_m, only: yoethf |
38 |
use write_field, only: NbField, FieldId |
use write_field, only: NbField, Ncid |
39 |
|
|
40 |
IMPLICIT NONE |
IMPLICIT NONE |
41 |
|
|
155 |
call histclo |
call histclo |
156 |
|
|
157 |
do i = 1, nbfield |
do i = 1, nbfield |
158 |
call nf95_close(FieldId(i)) |
call nf95_close(Ncid(i)) |
159 |
end do |
end do |
160 |
|
|
161 |
print *, 'Simulation finished' |
print *, 'Simulation finished' |