source: branches/GRISLIv3/SOURCES/MISMIP3D_files/module_choix_mismip3d.f90 @ 474

Last change on this file since 474 was 474, checked in by aquiquet, 5 months ago

Cleaning branch: remove old unused code

File size: 4.3 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_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 output_antarcti_mod
27!! @note   - use printtable
28!<
29MODULE MODULE_CHOIX
30
31!--------------Lecture topo ------------------------
32! use lect_topo_heino      ! pour Heino
33! use lect_topo_anteis    ! pour l'antarctique 40 km
34
35use lect_topo_mismip3
36
37!use lect_topo_ant_gen    ! read antarctic topo with .dat files
38!use lect_topo_ant_CISM_gen
39!use lect_topo_nord40    ! pour l'hemisphere nord 40 km
40!use lect_topo_eurasie   ! pour l'eurasie  (toute resolutions)
41
42!--------------Lecture climat ref ------------------
43
44! use lect_clim_act_ant_gen
45!use lect_clim_acc_T_ant_gen
46
47! use lect_clim_act_nord40 ! pour l'hemisphere nord et l'eurasie
48! use  climat_heino
49 use  climat_mismip3
50
51!--------------Lecture climat forcage---------------
52!use climat_perturb_mod
53!use climat_forcage_mod
54!use climat_synthes_mod
55!use climat_profil_mod
56!use climat_regions_delta
57
58! pas de differences locales de niveau marin
59use no_rsl
60
61! suivi des traceurs ou pas ?
62!use tracer_mod
63! attention tracer fait appel a un modele climat qui doit etre compatible avec celui choisi
64! dans modile choix.
65
66use notracer_mod
67
68!--------------Choix isostasie----------------------
69!use isostasie_mod  ! module permettant de calculer la deflexion isostasique
70use noisostasie_mod ! module pour ne pas avoir d'isostasie
71
72
73!--------------Module Physique---------------------
74!use deformation_mod        ! module concernant les lois de deformation
75!use deformation_mod_2lois   ! module concernant les lois de deformation
76use deformation_mod_2lois_isoth
77!--------------Module propriete thermique de la glace
78use  prop_thermiques_ice
79! use prop_therm_ice_heino
80
81! eau basale
82use eau_basale
83
84! sliding- dragging
85! use module sliding_vitbal
86! use sliding_Bindschadler
87use no_sliding
88! use sliding_dragging_heino    ! loi de glissement heino : mis dans diffusiv :
89
90
91use dragging_mismip3
92
93! use dragging_vit_bil_LBq_gen
94!use dragging_vitbil
95! use dragging_hwatstream
96
97!use dragging_hwat_cont
98
99!use dragging_hwat_contmaj
100
101! use dragging_vit_bil_CISM_gen
102! use dragging_calc_beta           ! tourne en "no_spinup" qui contient les fake
103!use dragging_prescr_beta
104!use dragging_LGM
105!use dragging_plastic_LGM
106!------------ spinup -----------------------------------
107use no_spinup            ! spinup=0 ou spinup=1
108! use spinup_vitbil      ! plusieurs variantes de spinup : inclue le dragging
109                         ! enlever le use dragging dans ce cas là
110
111
112
113! module concernant l'eq. elliptique (pour les streams et shelves)
114
115! use eq_elliptique_mod ! ancienne version (remplimat-5)
116use eq_ellip_sgbsv_mod ! nouvelle version juillet 2008
117
118! calving
119use no_calving 
120
121! choix resolution de la conservation de la masse
122!-----------------------------------------------
123!use equat_adv_diff_2D           ! conservation masse avec advection-diffusion
124use equat_adv_diff_2D_vect      ! le vecteur est maintenant dans l'appel
125
126! le module en dessous n'est peut etre pas utile, les flux transversaux a 0 devraient suffire
127!use equat_adv_diff_2D_paral      ! equat_adv_diff_2D_vect adapte a un domaine parallele (MISMIP)
128
129!--------------Fusion basale------------------------
130!use bmelt_ant_regions ! pour l'Antarctique avec régions
131
132!use bmelt_seuil_prof
133
134! USE BMELT_NOR_REGIONS ! pour le nord avec régions
135! use BMELT_NOR_DEPTH   ! pour le nord avec profondeur d'eau
136
137
138! fake -------fausses routines pour compatibilités
139!  use fake_heino
140! use fake_ant
141
142use fake_mismip
143
144! use fake_nord
145!-------------- Outputs-----------------------------
146!
147!-----Suivi temporel
148! use output_heminord_mod
149 use output_antarcti_mod
150! use output_heino
151
152end module module_choix
Note: See TracBrowser for help on using the repository browser.