source: trunk/SOURCES/Grismip6_files/module_choix-grismip6.f90 @ 334

Last change on this file since 334 was 262, checked in by aquiquet, 5 years ago

Geometry addition for ISMIP6 Greenland: Grismip6, 5km

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