1 | !> \file module_choix-0.4.f90 |
---|
2 | !! Ce module permet de choisir quels package on veut utiliser |
---|
3 | !< |
---|
4 | |
---|
5 | !> \namespace MODULE_CHOIX |
---|
6 | !! Ce module permet de choisir quels package on veut utiliser |
---|
7 | !! \author CatRitz |
---|
8 | !! \date ... |
---|
9 | !! @note Used modules |
---|
10 | !! @note - use lect_topo_heino |
---|
11 | !! @note - use climat_heino |
---|
12 | !! @note - USE NOISOSTASIE_MOD ! module pour ne pas avoir d'isostasie |
---|
13 | !! @note - USE DEFORMATION_MOD |
---|
14 | !! @note - use prop_therm_ice_heino |
---|
15 | !! @note - use sliding_Bindschadler |
---|
16 | !! @note - use dragging_hwatstream |
---|
17 | !! @note - USE EQ_ELLIPTIQUE_MOD |
---|
18 | !! @note - use BMELT_NOR_DEPTH |
---|
19 | !! @note - use fake_nord |
---|
20 | !! @note - use out_profile |
---|
21 | !! @note - use out_cptr |
---|
22 | !! @note - use out_hz |
---|
23 | !! @note - USE OUTPUT_HEMINORD_MOD |
---|
24 | !! @note - use printtable |
---|
25 | !< |
---|
26 | |
---|
27 | |
---|
28 | MODULE MODULE_CHOIX |
---|
29 | |
---|
30 | !--------------Lecture topo ------------------------ |
---|
31 | use lect_topo_heino ! pour Heino |
---|
32 | ! use lect_topo_anteis ! pour l'antarctique 40 km |
---|
33 | !use lect_topo_nord40 ! pour l'hemisphere nord 40 km |
---|
34 | !use lect_topo_eurasie ! pour l'eurasie (toute resolutions) |
---|
35 | |
---|
36 | !--------------Lecture climat ref ------------------ |
---|
37 | ! use lect_clim_act_anteis |
---|
38 | ! use lect_clim_act_nord40 ! pour l'hemisphere nord et l'eurasie |
---|
39 | use climat_heino |
---|
40 | |
---|
41 | !--------------Lecture climat forcage--------------- |
---|
42 | |
---|
43 | !use CLIMAT_PERTURB_MOD |
---|
44 | !USE CLIMAT_FORCAGE_MOD |
---|
45 | !USE CLIMAT_SYNTHES_MOD |
---|
46 | !USE CLIMAT_PROFIL_MOD |
---|
47 | !use CLIMAT_REGIONS_DELTA |
---|
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 | |
---|
54 | !--------------Module Physique--------------------- |
---|
55 | USE DEFORMATION_MOD ! module concernant les lois de deformation |
---|
56 | |
---|
57 | !--------------Module propritete thermique de la glace |
---|
58 | ! use prop_thermiques_ice |
---|
59 | use prop_therm_ice_heino |
---|
60 | ! use sliding_heino ! loi de glissement heino : mis dans diffusiv : |
---|
61 | |
---|
62 | ! use module sliding_vitbal |
---|
63 | use sliding_Bindschadler |
---|
64 | |
---|
65 | !use dragging_vitbil |
---|
66 | use dragging_hwatstream |
---|
67 | |
---|
68 | USE EQ_ELLIPTIQUE_MOD! module concernant l'eq. elliptique (pour les shelves) |
---|
69 | |
---|
70 | |
---|
71 | !--------------Fusion basale------------------------ |
---|
72 | ! USE BMELT_ANT_REGIONS ! pour l'Antarctique avec régions |
---|
73 | ! USE BMELT_NOR_REGIONS ! pour le nord avec régions |
---|
74 | use BMELT_NOR_DEPTH ! pour le nord avec profondeur d'eau |
---|
75 | ! use fake_heino |
---|
76 | ! use fake_ant |
---|
77 | use fake_nord |
---|
78 | !-------------- Outputs----------------------------- |
---|
79 | ! |
---|
80 | use out_profile !profils |
---|
81 | !use out_cptr ! fichier de reprise |
---|
82 | use out_hz ! module de sorties snapshot dans un plan horizontal |
---|
83 | |
---|
84 | !-----Suivi temporel |
---|
85 | USE OUTPUT_HEMINORD_MOD |
---|
86 | ! USE OUTPUT_ANTARCTI_MOD |
---|
87 | ! use output_heino |
---|
88 | !-----debugage... |
---|
89 | use printtable |
---|
90 | |
---|
91 | |
---|
92 | END MODULE MODULE_CHOIX |
---|