source: trunk/SOURCES/GrIce2sea_files/module_choix_GrIce2sea.f90 @ 30

Last change on this file since 30 was 25, checked in by dumas, 9 years ago

Suppression du module inutilise prop-thermiques_mod.f90

File size: 4.6 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
119
120
121! module concernant l'eq. elliptique (pour les streams et shelves)
122
123! use eq_elliptique_mod ! ancienne version (remplimat-5)
124use eq_ellip_sgbsv_mod ! nouvelle version juillet 2008
125
126! calving
127use calving_frange
128
129! choix resolution de la conservation de la masse
130!-----------------------------------------------
131!use equat_adv_diff_2D          ! conservation masse avec advection-diffusion
132use equat_adv_diff_2D_vect      ! le vecteur est maintenant dans l'appel
133
134!--------------Fusion basale------------------------
135!use bmelt_ant_regions ! pour l'Antarctique avec régions
136
137use bmelt_seuil_prof
138
139! USE BMELT_NOR_REGIONS ! pour le nord avec régions
140! use BMELT_NOR_DEPTH   ! pour le nord avec profondeur d'eau
141
142
143! fake -------fausses routines pour compatibilités
144! use fake_heino
145! use fake_ant
146use fake_grice2sea
147! use fake_nord
148!-------------- Outputs-----------------------------
149!
150use out_profile  !profils
151!use out_cptr     ! fichier de reprise
152use out_hz       ! module de sorties snapshot dans un plan horizontal
153
154!-----Suivi temporel
155! use output_heminord_mod
156! use output_antarcti_mod
157use output_grice2sea_mod
158! use output_heino
159!-----debugage...
160use printtable
161
162
163
164end module module_choix
Note: See TracBrowser for help on using the repository browser.