source: trunk/SOURCES/Ant20_CISM_files/module_choix_antar20CISM.f90

Last change on this file was 238, checked in by aquiquet, 5 years ago

Lakes have been replaced by a more generic relative sea level information, commit with no consequence on standard applications

File size: 4.6 KB
Line 
1!> \file module_choix_antar20CISM.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 out_profile 
27!! @note   - use out_cptr     
28!! @note   - use out_hz       
29!! @note   - use output_antarcti_mod
30!! @note   - use printtable
31!<
32
33
34MODULE MODULE_CHOIX
35
36!--------------Lecture topo ------------------------
37! use lect_topo_heino      ! pour Heino
38use lect_topo_anteis    ! pour l'antarctique 40 km
39!use lect_topo_ant_CISM_gen
40!use lect_topo_nord40    ! pour l'hemisphere nord 40 km
41!use lect_topo_eurasie   ! pour l'eurasie  (toute resolutions)
42
43!--------------Lecture climat ref ------------------
44!use lect_clim_act_anteis
45
46!use lect_clim_act_ant_gen
47
48! use lect_clim_act_nord40 ! pour l'hemisphere nord et l'eurasie
49! use  climat_heino
50
51!--------------Lecture climat forcage---------------
52!use climat_forcage_mois_mod ! forcage mensuel GCM 1 Snapshot Fev 2015
53!use climat_perturb_mod   ! climat perturbe a reverifier Dec 2015
54!use climat_Grice2sea_years_mod  ! climat force par fichier SMB directement (grice2sea)
55use climat_Grice2sea_years_perturb_mod ! climat force par fichier SMB directement (grice2sea) + index temperature carotte de glace
56!use climat_forcage_mod
57!use climat_synthes_mod
58!use climat_profil_mod
59!use climat_regions_delta
60
61!use ablation_mod ! calcul de l'ablation (PDD ou autre methode)
62use no_ablation  ! pas de calcul de l'ablation => lecture fichier SMB (necessaire avec climat_Grice2sea_years_mod)
63
64! pas de differences locales de niveau marin
65use no_rsl
66
67! suivi des traceurs ou pas ?
68!use tracer_mod  ! probablement pas compatible avec Hemin-40 actuellement
69use notracer_mod
70
71!--------------Choix isostasie----------------------
72use isostasie_mod  ! module permettant de calculer la deflexion isostasique
73!use noisostasie_mod ! module pour ne pas avoir d'isostasie
74
75
76!--------------Module Physique---------------------
77!use deformation_mod  ! module concernant les lois de deformation
78use deformation_mod_2lois   ! module concernant les lois de deformation
79
80! eau basale
81use eau_basale
82
83! sliding- dragging
84! use module sliding_vitbal
85! use sliding_Bindschadler
86use no_sliding
87! use sliding_dragging_heino    ! loi de glissement heino : mis dans diffusiv :
88
89
90!use dragging_vitbil
91!use dragging_hwatstream
92
93!use dragging_hwat_cont
94
95!use dragging_hwat_contmaj ! frottement basal catherine grisliv8 ice stream peu actifs
96!use dragging_vit_bil_CISM_gen
97use dragging_param_beta
98!use dragging_param_beta_sedim
99!use dragging_param_beta_nolin
100! use dragging_hwat_sedim version sediment HN
101
102!use dragging_vit_bil_CISM_gen
103! use dragging_calc_beta
104!use dragging_prescr_beta
105
106!------------ spinup -----------------------------------
107use no_spinup           ! spinup=0
108!use spinup_vitbil         ! plusieurs variantes de spinup : inclue le dragging
109                          ! enlever le use dragging dans ce cas là
110
111use furst_schoof_mod  ! module pour calcul flux gr line
112
113! use eq_elliptique_mod ! ancienne version (remplimat-5)
114use eq_ellip_sgbsv_mod ! nouvelle version juillet 2008
115
116! calving
117use calving_frange
118
119! choix resolution de la conservation de la masse
120!-----------------------------------------------
121!use equat_adv_diff_2D          ! conservation masse avec advection-diffusion
122use equat_adv_diff_2D_vect      ! le vecteur est maintenant dans l'appel
123
124!--------------Fusion basale------------------------
125!use bmelt_ant_regions ! pour l'Antarctique avec régions
126!use bmelt_seuil_prof
127use bmelt_ant_regions_initmip
128!use bmelt_ant_regions_oce ! pour Ant region et temp ocean
129!use bmelt_nor_regions ! pour le nord avec régions
130!use bmelt_nor_depth   ! pour le nord avec profondeur d'eau
131
132
133! fake -------fausses routines pour compatibilités
134! use fake_heino
135use fake_ant
136
137! use fake_nord
138!-------------- Outputs-----------------------------
139!
140use out_profile  !profils
141
142!-----Suivi temporel
143! use output_heminord_mod
144 use output_antarcti_mod
145! use output_heino
146!-----debugage...
147use printtable
148
149
150end module module_choix
Note: See TracBrowser for help on using the repository browser.