source: trunk/SOURCES/Ant40_files/module_choix-antar40-0.4_old.f90 @ 159

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

initial import GRISLI trunk

File size: 2.4 KB
Line 
1!
2!
3!  Ce module permet de choisir quels package on veut utiliser
4!
5!
6!
7
8MODULE MODULE_CHOIX
9
10!--------------Lecture topo ------------------------
11! use lect_topo_heino      ! pour Heino
12use lect_topo_anteis    ! pour l'antarctique 40 km
13!use lect_topo_nord40    ! pour l'hemisphere nord 40 km
14!use lect_topo_eurasie   ! pour l'eurasie  (toute resolutions)
15
16!--------------Lecture climat ref ------------------
17use lect_clim_act_anteis
18! use lect_clim_act_nord40 ! pour l'hemisphere nord et l'eurasie
19! use  climat_heino
20
21!--------------Lecture climat forcage---------------
22
23use climat_perturb_mod
24!use climat_forcage_mod
25!use climat_synthes_mod
26!use climat_profil_mod
27!use climat_regions_delta
28
29!--------------Choix isostasie----------------------
30 use isostasie_mod  ! module permettant de calculer la deflexion isostasique
31! use noisostasie_mod ! module pour ne pas avoir d'isostasie
32
33
34!--------------Module Physique---------------------
35use deformation_mod  ! module concernant les lois de deformation
36
37!--------------Module propriete thermique de la glace
38use  prop_thermiques_ice
39! use prop_therm_ice_heino
40
41! eau basale
42use eau_basale
43
44! sliding- dragging
45! use module sliding_vitbal
46use sliding_Bindschadler
47! use sliding_dragging_heino    ! loi de glissement heino : mis dans diffusiv :
48
49
50!use dragging_vitbil
51! use dragging_hwatstream
52
53!use dragging_hwat_cont
54
55use dragging_hwat_contmaj
56
57! module concernant l'eq. elliptique (pour les streams et shelves)
58
59use eq_elliptique_mod ! ancienne version (remplimat-5)
60!use eq_ellip_sgbsv_mod ! nouvelle version juillet 2008
61
62! calving
63use calving_frange
64
65! choix resolution de la conservation de la masse
66!-----------------------------------------------
67use equat_adv_diff_2D          ! conservation masse avec advection-diffusion
68
69
70!--------------Fusion basale------------------------
71use bmelt_ant_regions ! pour l'Antarctique avec régions
72! USE BMELT_NOR_REGIONS ! pour le nord avec régions
73! use BMELT_NOR_DEPTH   ! pour le nord avec profondeur d'eau
74
75
76! fake -------fausses routines pour compatibilités
77! use fake_heino
78use fake_ant
79
80! use fake_nord
81!-------------- Outputs-----------------------------
82!
83use out_profile  !profils
84!use out_cptr     ! fichier de reprise
85use out_hz       ! module de sorties snapshot dans un plan horizontal
86
87!-----Suivi temporel
88! use output_heminord_mod
89 use output_antarcti_mod
90! use output_heino
91!-----debugage...
92use printtable
93
94
95end module module_choix
Note: See TracBrowser for help on using the repository browser.