source: trunk/SOURCES/GrIce2sea_files/module_choix_GrIce2sea.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: 4.7 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
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
43use lect_topo_green_gen  ! lecture generale pour le groenland
44
45!--------------Lecture climat ref ------------------
46!use lect_clim_act_anteis
47
48! use lect_clim_act_ant_gen
49! use lect_clim_acc_T_ant_gen
50
51! use lect_climref_Ice2sea ! pour les experiences avec le climat de reference
52
53! use lect_clim_act_nord40 ! pour l'hemisphere nord et l'eurasie
54! use  climat_heino
55
56!--------------Lecture climat forcage---------------
57!use climat_perturb_mod
58!use climat_forcage_mod
59!use climat_synthes_mod
60!use climat_profil_mod
61!use climat_regions_delta
62!use climat_Grice2sea_mod    ! pour les experiences ice2sea
63
64use climat_Grice2sea_years_mod
65
66! calcul de l'ablation
67use no_ablation ! pas de calcul de l'ablation => lecture fichier SMB
68
69! pas de lacs proglaciaires
70use no_lakes
71
72! suivi des traceurs ou pas ?
73!use tracer_mod
74! attention tracer fait appel a un modele climat qui doit etre compatible avec celui choisi
75! dans modile choix.
76
77use notracer_mod
78
79!--------------Choix isostasie----------------------
80use isostasie_mod  ! module permettant de calculer la deflexion isostasique
81!use noisostasie_mod ! module pour ne pas avoir d'isostasie
82
83
84!--------------Module Physique---------------------
85!use deformation_mod  ! module concernant les lois de deformation
86use deformation_mod_2lois   ! module concernant les lois de deformation
87
88!--------------Module propriete thermique de la glace
89! use prop_therm_ice_heino
90
91! eau basale
92use eau_basale
93
94! sliding- dragging
95! use module sliding_vitbal
96! use sliding_Bindschadler
97use no_sliding
98! use sliding_dragging_heino    ! loi de glissement heino : mis dans diffusiv :
99
100! use dragging_vit_bil_LBq_gen
101!use dragging_vitbil
102! use dragging_hwatstream
103
104!use dragging_hwat_cont
105
106!use dragging_hwat_contmaj
107
108! use dragging_vit_bil_CISM_gen
109! use dragging_calc_beta           ! tourne en "no_spinup" qui contient les fake
110!use dragging_prescr_beta
111use beta_iter_vitbil_mod
112!use dragging_LGM
113!use dragging_plastic_LGM
114!------------ spinup -----------------------------------
115use no_spinup             ! spinup=0 ou spinup=1
116!use spinup_vitbil        ! plusieurs variantes de spinup : inclue le dragging
117                          ! enlever le use dragging dans ce cas là
118
119use furst_schoof_mod  ! module pour calcul flux gr line
120
121! module concernant l'eq. elliptique (pour les streams et shelves)
122! use eq_elliptique_mod ! ancienne version (remplimat-5)
123use eq_ellip_sgbsv_mod ! nouvelle version juillet 2008
124
125! calving
126use calving_frange
127
128! choix resolution de la conservation de la masse
129!-----------------------------------------------
130!use equat_adv_diff_2D          ! conservation masse avec advection-diffusion
131use equat_adv_diff_2D_vect      ! le vecteur est maintenant dans l'appel
132
133!--------------Fusion basale------------------------
134!use bmelt_ant_regions ! pour l'Antarctique avec régions
135
136use bmelt_seuil_prof
137
138! USE BMELT_NOR_REGIONS ! pour le nord avec régions
139! use BMELT_NOR_DEPTH   ! pour le nord avec profondeur d'eau
140
141
142! fake -------fausses routines pour compatibilités
143! use fake_heino
144! use fake_ant
145use fake_grice2sea
146! use fake_nord
147!-------------- Outputs-----------------------------
148!
149use out_profile  !profils
150!use out_cptr     ! fichier de reprise
151use out_hz       ! module de sorties snapshot dans un plan horizontal
152
153!-----Suivi temporel
154! use output_heminord_mod
155! use output_antarcti_mod
156use output_grice2sea_mod
157! use output_heino
158!-----debugage...
159use printtable
160
161
162
163end module module_choix
Note: See TracBrowser for help on using the repository browser.