source: trunk/SOURCES/Old-sources/step_output.f90 @ 334

Last change on this file since 334 was 4, checked in by dumas, 10 years ago

initial import GRISLI trunk
File size: 1.2 KB
Line 
1!---------------------------------------------------------------------------------------
2subroutine step_output
3
4
5  USE module3D_phy
6  USE module_choix ! module de choix du type de run
7  !  module_choix donne acces a tous les modules
8  !  de declaration des packages
9  use flottab_mod
10  use interface_icetempmod
11  use sorties_ncdf_grisli
12  use diagno_mod 
13  use track_debug 
14
15  implicit none
16
17
18  close(num_templin)
19  write(6,*)'sorties finales time=', time
20
21  call testsort_time(tend)
22  call sortie_hz_multi   ! pour les variables déclarées dans 3D
23  call hz_output(tend)
24
25  call testsort_time_ncdf(tend)
26
27  if (iglob_ncdf .EQ. 1) call sortie_ncdf_cat
28
29  ! call SORTIEPROFILE
30
31  !  call SORTIEPROFILE
32  call sortiecptr
33  call lastoutput
34
35  if ((geoplace.eq.'anteis1').or.(geoplace.eq.'ant20km')) then
36     call ts_out()
37     close(num_ts_ritz)
38
39     call sealevel_out
40     close(num_sealevel)
41  endif
42
43
44  close(num_ts_ritz)
45  close(num_ic_vo)
46  close(num_ic_by)
47  close(num_ic_dm)
48  close(num_ic_dc)
49  close(num_ic_df)
50  close(num_sealevel)
51
52  CALL write_trace('%%%%%%%% THE END... %%%%%%%%%%')
53940 format('%%%% ',a,'   time=',f8.0,' %%%%')
54
55
56  return
57end subroutine step_output
Note: See TracBrowser for help on using the repository browser.