1 | !> \file module_choix-greeneem.f90 |
---|
2 | !! Ce module permet de choisir quels package on veut utiliser |
---|
3 | ! |
---|
4 | ! Adapte a nouvelle version GRISLI C. DUMAS 04/2015 |
---|
5 | ! |
---|
6 | ! |
---|
7 | |
---|
8 | MODULE MODULE_CHOIX |
---|
9 | |
---|
10 | !--------------Lecture topo ------------------------ |
---|
11 | |
---|
12 | use lect_topo_greeneem ! pour le groenland NEEM |
---|
13 | |
---|
14 | !--------------Lecture climat ref ------------------ |
---|
15 | |
---|
16 | !version mensuelle : |
---|
17 | !!!!!use lect_clim_act_greeneem_mois ! version standard |
---|
18 | !use lect_clim_act_greeneem_mois_lapsecouche ! attention a choisir climat perturb lapsecouche |
---|
19 | !------------------- |
---|
20 | |
---|
21 | !version annuelle |
---|
22 | !use lect_clim_act_greeneem ! temp parametree (GMINT) mais precip mar, attention a regarder massb_Tparam |
---|
23 | !use lect_clim_act_greeneem_mar !precip, temp de mar mais annuel, attention a regarder massb_Tparam |
---|
24 | !------------------- |
---|
25 | |
---|
26 | !--------------Module climat --------------- |
---|
27 | !use climat_forcage_mois_mod ! forcage mensuel GCM 1 Snapshot Fev 2015 |
---|
28 | use climat_Grice2sea_years_mod ! forcage avec SMB type MAR Fev2015 |
---|
29 | |
---|
30 | ! Anciens modules pas encore valides |
---|
31 | !!!!!!use climat_perturb_mod ! pour simule climat equilibre type Loveclim |
---|
32 | !!!!!!use climat_forcage_stat_mois_mod ! climat constant mensuel GCMs |
---|
33 | !!!!!!use climat_forcage_mod ! pour cycle force GCM avec index |
---|
34 | !!!!!!use climat_forcage_insolation_mod ! methode JB multi-snapshots mensuelle mais pour un etat stationnaire avec correction topo GCM => GRISLI |
---|
35 | !!!!!!use climat_synthes_mod |
---|
36 | !!!!!!use climat_profil_mod |
---|
37 | !!!!!!use climat_regions_delta |
---|
38 | |
---|
39 | !use ablation_mod ! calcul de l'ablation (PDD ou autre methode) |
---|
40 | use no_ablation ! pas de calcul de l'ablation => lecture fichier SMB (necessaire avec climat_Grice2sea_years_mod) |
---|
41 | |
---|
42 | ! pas de lacs proglaciaires |
---|
43 | use no_lakes |
---|
44 | |
---|
45 | ! suivi des traceurs ou pas ? |
---|
46 | !use tracer_mod ! probablement pas compatible avec Hemin-40 actuellement |
---|
47 | use notracer_mod |
---|
48 | |
---|
49 | !--------------Choix isostasie---------------------- |
---|
50 | use isostasie_mod ! module permettant de calculer la deflexion isostasique |
---|
51 | ! use noisostasie_mod ! module pour ne pas avoir d'isostasie |
---|
52 | |
---|
53 | !--------------Module Physique--------------------- |
---|
54 | use deformation_mod_2lois ! module concernant les lois de deformation |
---|
55 | |
---|
56 | !--------------Module propriete thermique de la glace |
---|
57 | use prop_thermiques_ice |
---|
58 | |
---|
59 | ! eau basale |
---|
60 | use eau_basale |
---|
61 | |
---|
62 | ! sliding- dragging |
---|
63 | ! use module sliding_vitbal |
---|
64 | use sliding_Bindschadler |
---|
65 | ! use sliding_dragging_heino ! loi de glissement heino : mis dans diffusiv : |
---|
66 | |
---|
67 | |
---|
68 | !use dragging_vitbil |
---|
69 | !use dragging_hwatstream |
---|
70 | !use dragging_hwat_cont |
---|
71 | !use dragging_hwat_contmaj !version neem sans streams validee greeneem15 |
---|
72 | !use dragging_neem ! neem avec streamsn,masque offline |
---|
73 | use dragging_hwat_sedim ! version C. Dumas |
---|
74 | |
---|
75 | |
---|
76 | !------------ spinup ----------------------------------- |
---|
77 | use no_spinup ! spinup=0 |
---|
78 | !use spinup_vitbil ! plusieurs variantes de spinup : inclue le dragging |
---|
79 | ! enlever le use dragging dans ce cas là |
---|
80 | |
---|
81 | ! use eq_elliptique_mod ! ancienne version (remplimat-5) |
---|
82 | use eq_ellip_sgbsv_mod ! nouvelle version juillet 2008 |
---|
83 | |
---|
84 | ! calving |
---|
85 | use calving_frange |
---|
86 | |
---|
87 | ! choix resolution de la conservation de la masse |
---|
88 | !----------------------------------------------- |
---|
89 | !use equat_adv_diff_2D ! conservation masse avec advection-diffusion |
---|
90 | use equat_adv_diff_2D_vect ! le vecteur est maintenant dans l'appel |
---|
91 | |
---|
92 | !--------------Fusion basale------------------------ |
---|
93 | use bmelt_seuil_prof |
---|
94 | ! use bmelt_ant_regions ! pour l'Antarctique avec régions |
---|
95 | ! USE BMELT_NOR_REGIONS ! pour le nord avec régions |
---|
96 | ! use BMELT_NOR_DEPTH ! pour le nord avec profondeur d'eau |
---|
97 | |
---|
98 | |
---|
99 | ! fake -------fausses routines pour compatibilités |
---|
100 | ! use fake_heino |
---|
101 | ! use fake_ant |
---|
102 | use fake_greeneem |
---|
103 | |
---|
104 | ! use fake_nord |
---|
105 | !-------------- Outputs----------------------------- |
---|
106 | ! |
---|
107 | use out_profile !profils |
---|
108 | !use out_cptr ! fichier de reprise |
---|
109 | use out_hz ! module de sorties snapshot dans un plan horizontal |
---|
110 | |
---|
111 | !-----Suivi temporel |
---|
112 | use output_greeneem_mod |
---|
113 | |
---|
114 | !-----debugage... |
---|
115 | use printtable |
---|
116 | |
---|
117 | |
---|
118 | end module module_choix |
---|