source: trunk/SOURCES/ANT15-LBq_files/module_choix_antar15_LBq.f90 @ 93

Last change on this file since 93 was 93, checked in by dumas, 7 years ago

First version with Schoof flux parameterisation at the grounding line. | New module furst_schoof_mod.f90 | New flag Schoof in grdline namelist (see in SOURCES/Fichiers-parametres/A-LBq15_param_list_Schoof.dat)

File size: 5.1 KB
Line 
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_lakes
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!<
32MODULE MODULE_CHOIX
33
34!--------------Lecture topo ------------------------
35! use lect_topo_heino      ! pour Heino
36! use lect_topo_anteis    ! pour l'antarctique 40 km
37
38!use lect_topo_ant_gen    ! read antarctic topo with .dat files Catherine
39use lect_topo_anteis    ! pour l'antarctique 40 km ou 15km Christophe
40!use lect_topo_ant_CISM_gen
41!use lect_topo_nord40    ! pour l'hemisphere nord 40 km
42!use lect_topo_eurasie   ! pour l'eurasie  (toute resolutions)
43
44!--------------Lecture climat ref ------------------
45!use lect_clim_act_anteis
46
47! use lect_clim_act_ant_gen
48! use lect_clim_acc_T_ant_gen ! module Catherine climat Antarctique
49
50!--------------Module climat ---------------
51!use climat_forcage_mois_mod ! forcage mensuel GCM 1 Snapshot Fev 2015
52!use climat_Grice2sea_years_mod  ! climat force par fichier SMB directement (grice2sea)
53use climat_Grice2sea_years_perturb_mod ! forcage avec SMB type MAR et evolutionn temporelle (futur ou carotte)
54
55! use lect_clim_act_nord40 ! pour l'hemisphere nord et l'eurasie
56! use  climat_heino
57
58!--------------Lecture climat forcage---------------
59!use climat_perturb_mod
60!use climat_forcage_mod
61!use climat_synthes_mod
62!use climat_profil_mod
63!use climat_regions_delta
64
65!use ablation_mod ! calcul de l'ablation (PDD ou autre methode)
66use no_ablation  ! pas de calcul de l'ablation => lecture fichier SMB (necessaire avec climat_Grice2sea_years_mod)
67
68! pas de lacs proglaciaires
69use no_lakes
70
71! suivi des traceurs ou pas ?
72!use tracer_mod
73! attention tracer fait appel a un modele climat qui doit etre compatible avec celui choisi
74! dans modile choix.
75use notracer_mod
76
77!--------------Choix isostasie----------------------
78use isostasie_mod  ! module permettant de calculer la deflexion isostasique
79!use noisostasie_mod ! module pour ne pas avoir d'isostasie
80
81
82!--------------Module Physique---------------------
83!use deformation_mod  ! module concernant les lois de deformation
84use deformation_mod_2lois   ! module concernant les lois de deformation
85
86! eau basale
87use eau_basale
88
89! sliding- dragging
90! use module sliding_vitbal
91! use sliding_Bindschadler
92use no_sliding
93! use sliding_dragging_heino    ! loi de glissement heino : mis dans diffusiv :
94
95! use dragging_vit_bil_LBq_gen
96!use dragging_vitbil
97! use dragging_hwatstream
98
99!use dragging_hwat_cont
100
101!use dragging_hwat_contmaj
102
103! use dragging_vit_bil_CISM_gen
104! use dragging_calc_beta           ! tourne en "no_spinup" qui contient les fake
105
106! use dragging_prescr_beta    ! beta lineaire
107
108! use dragging_beta_buoy     ! beta fonction de la flottaison
109
110!use dragging_beta_nolin      ! beta non lineaire
111
112use dragging_neff_slope ! dragging Aurelien et Christophe
113
114!use beta_iter_vitbil_mod
115
116!use dragging_LGM
117!use dragging_plastic_LGM
118!------------ spinup -----------------------------------
119use no_spinup           ! spinup=0 ou spinup=1
120! use spinup_vitbil      ! plusieurs variantes de spinup : inclue le dragging
121                         ! enlever le use dragging dans ce cas là
122
123use furst_schoof_mod  ! module pour calcul flux gr line
124
125! module concernant l'eq. elliptique (pour les streams et shelves)
126
127! use eq_elliptique_mod ! ancienne version (remplimat-5)
128use eq_ellip_sgbsv_mod ! nouvelle version juillet 2008
129
130! calving
131use calving_frange
132
133! choix resolution de la conservation de la masse
134!-----------------------------------------------
135!use equat_adv_diff_2D          ! conservation masse avec advection-diffusion
136use equat_adv_diff_2D_vect      ! le vecteur est maintenant dans l'appel
137
138!--------------Fusion basale------------------------
139!use bmelt_ant_regions ! pour l'Antarctique avec régions
140
141!use bmelt_seuil_prof
142use bmelt_ant_regions ! pour l'Antarctique avec régions
143
144! use BMELT_NOR_REGIONS ! pour le nord avec régions
145! use BMELT_NOR_DEPTH   ! pour le nord avec profondeur d'eau
146
147
148! fake -------fausses routines pour compatibilités
149! use fake_heino
150use fake_ant
151
152! use fake_nord
153!-------------- Outputs-----------------------------
154!
155use out_profile  !profils
156!use out_cptr     ! fichier de reprise
157use out_hz       ! module de sorties snapshot dans un plan horizontal
158
159!-----Suivi temporel
160! use output_heminord_mod
161 use output_antarcti_mod
162! use output_heino
163!-----debugage...
164use printtable
165
166
167
168end module module_choix
Note: See TracBrowser for help on using the repository browser.