1 | !> \file module_choix_antar15_LBq.f90 |
---|
2 | !! Ce module permet de choisir quels package on veut utiliser |
---|
3 | !! |
---|
4 | !< |
---|
5 | |
---|
6 | !> \namespace MODULE_CHOIX |
---|
7 | !! Ce module permet de choisir quels package on veut utiliser |
---|
8 | !! \author CatRitz |
---|
9 | !! \date ... |
---|
10 | !! @note Used modules |
---|
11 | !! @note - use lect_topo_ant_CISM_gen |
---|
12 | !! @note - use lect_clim_act_ant_gen |
---|
13 | !! @note - use climat_perturb_mod |
---|
14 | !! @note - use no_rsl |
---|
15 | !! @note - use isostasie_mod |
---|
16 | !! @note - use deformation_mod_2lois |
---|
17 | !! @note - use prop_thermiques_ice |
---|
18 | !! @note - use eau_basale |
---|
19 | !! @note - use sliding_Bindschadler |
---|
20 | !! @note - use dragging_vit_bil_CISM_gen |
---|
21 | !! @note - use eq_ellip_sgbsv_mod |
---|
22 | !! @note - use calving_frange |
---|
23 | !! @note - use equat_adv_diff_2D_vect |
---|
24 | !! @note - use bmelt_seuil_prof |
---|
25 | !! @note - use fake_ant |
---|
26 | !! @note - use output_antarcti_mod |
---|
27 | !! @note - use printtable |
---|
28 | !< |
---|
29 | MODULE MODULE_CHOIX |
---|
30 | |
---|
31 | !--------------Lecture topo ------------------------ |
---|
32 | ! use lect_topo_heino ! pour Heino |
---|
33 | ! use lect_topo_anteis ! pour l'antarctique 40 km |
---|
34 | |
---|
35 | use lect_topo_mismip3 |
---|
36 | |
---|
37 | !use lect_topo_ant_gen ! read antarctic topo with .dat files |
---|
38 | !use lect_topo_ant_CISM_gen |
---|
39 | !use lect_topo_nord40 ! pour l'hemisphere nord 40 km |
---|
40 | !use lect_topo_eurasie ! pour l'eurasie (toute resolutions) |
---|
41 | |
---|
42 | !--------------Lecture climat ref ------------------ |
---|
43 | |
---|
44 | ! use lect_clim_act_ant_gen |
---|
45 | !use lect_clim_acc_T_ant_gen |
---|
46 | |
---|
47 | ! use lect_clim_act_nord40 ! pour l'hemisphere nord et l'eurasie |
---|
48 | ! use climat_heino |
---|
49 | use climat_mismip3 |
---|
50 | |
---|
51 | !--------------Lecture climat forcage--------------- |
---|
52 | !use climat_perturb_mod |
---|
53 | !use climat_forcage_mod |
---|
54 | !use climat_synthes_mod |
---|
55 | !use climat_profil_mod |
---|
56 | !use climat_regions_delta |
---|
57 | |
---|
58 | ! pas de differences locales de niveau marin |
---|
59 | use no_rsl |
---|
60 | |
---|
61 | ! suivi des traceurs ou pas ? |
---|
62 | !use tracer_mod |
---|
63 | ! attention tracer fait appel a un modele climat qui doit etre compatible avec celui choisi |
---|
64 | ! dans modile choix. |
---|
65 | |
---|
66 | use notracer_mod |
---|
67 | |
---|
68 | !--------------Choix isostasie---------------------- |
---|
69 | !use isostasie_mod ! module permettant de calculer la deflexion isostasique |
---|
70 | use noisostasie_mod ! module pour ne pas avoir d'isostasie |
---|
71 | |
---|
72 | |
---|
73 | !--------------Module Physique--------------------- |
---|
74 | !use deformation_mod ! module concernant les lois de deformation |
---|
75 | !use deformation_mod_2lois ! module concernant les lois de deformation |
---|
76 | use deformation_mod_2lois_isoth |
---|
77 | !--------------Module propriete thermique de la glace |
---|
78 | use prop_thermiques_ice |
---|
79 | ! use prop_therm_ice_heino |
---|
80 | |
---|
81 | ! eau basale |
---|
82 | use eau_basale |
---|
83 | |
---|
84 | ! sliding- dragging |
---|
85 | ! use module sliding_vitbal |
---|
86 | ! use sliding_Bindschadler |
---|
87 | use no_sliding |
---|
88 | ! use sliding_dragging_heino ! loi de glissement heino : mis dans diffusiv : |
---|
89 | |
---|
90 | |
---|
91 | use dragging_mismip3 |
---|
92 | |
---|
93 | ! use dragging_vit_bil_LBq_gen |
---|
94 | !use dragging_vitbil |
---|
95 | ! use dragging_hwatstream |
---|
96 | |
---|
97 | !use dragging_hwat_cont |
---|
98 | |
---|
99 | !use dragging_hwat_contmaj |
---|
100 | |
---|
101 | ! use dragging_vit_bil_CISM_gen |
---|
102 | ! use dragging_calc_beta ! tourne en "no_spinup" qui contient les fake |
---|
103 | !use dragging_prescr_beta |
---|
104 | !use dragging_LGM |
---|
105 | !use dragging_plastic_LGM |
---|
106 | !------------ spinup ----------------------------------- |
---|
107 | use no_spinup ! spinup=0 ou spinup=1 |
---|
108 | ! use spinup_vitbil ! plusieurs variantes de spinup : inclue le dragging |
---|
109 | ! enlever le use dragging dans ce cas là |
---|
110 | |
---|
111 | |
---|
112 | |
---|
113 | ! module concernant l'eq. elliptique (pour les streams et shelves) |
---|
114 | |
---|
115 | ! use eq_elliptique_mod ! ancienne version (remplimat-5) |
---|
116 | use eq_ellip_sgbsv_mod ! nouvelle version juillet 2008 |
---|
117 | |
---|
118 | ! calving |
---|
119 | use no_calving |
---|
120 | |
---|
121 | ! choix resolution de la conservation de la masse |
---|
122 | !----------------------------------------------- |
---|
123 | !use equat_adv_diff_2D ! conservation masse avec advection-diffusion |
---|
124 | use equat_adv_diff_2D_vect ! le vecteur est maintenant dans l'appel |
---|
125 | |
---|
126 | ! le module en dessous n'est peut etre pas utile, les flux transversaux a 0 devraient suffire |
---|
127 | !use equat_adv_diff_2D_paral ! equat_adv_diff_2D_vect adapte a un domaine parallele (MISMIP) |
---|
128 | |
---|
129 | !--------------Fusion basale------------------------ |
---|
130 | !use bmelt_ant_regions ! pour l'Antarctique avec régions |
---|
131 | |
---|
132 | !use bmelt_seuil_prof |
---|
133 | |
---|
134 | ! USE BMELT_NOR_REGIONS ! pour le nord avec régions |
---|
135 | ! use BMELT_NOR_DEPTH ! pour le nord avec profondeur d'eau |
---|
136 | |
---|
137 | |
---|
138 | ! fake -------fausses routines pour compatibilités |
---|
139 | ! use fake_heino |
---|
140 | ! use fake_ant |
---|
141 | |
---|
142 | use fake_mismip |
---|
143 | |
---|
144 | ! use fake_nord |
---|
145 | !-------------- Outputs----------------------------- |
---|
146 | ! |
---|
147 | !-----Suivi temporel |
---|
148 | ! use output_heminord_mod |
---|
149 | use output_antarcti_mod |
---|
150 | ! use output_heino |
---|
151 | |
---|
152 | end module module_choix |
---|