source: branches/iLoveclim/SOURCES/MISMIP3D_files/module_choix_mismip3d.f90 @ 244

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

Grisli-iloveclim branch merged to trunk at revision 243

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_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 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
38use lect_topo_mismip3
39
40!use lect_topo_ant_gen    ! read antarctic topo with .dat files
41!use lect_topo_ant_CISM_gen
42!use lect_topo_nord40    ! pour l'hemisphere nord 40 km
43!use lect_topo_eurasie   ! pour l'eurasie  (toute resolutions)
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_clim_act_nord40 ! pour l'hemisphere nord et l'eurasie
52! use  climat_heino
53 use  climat_mismip3
54
55!--------------Lecture climat forcage---------------
56!use climat_perturb_mod
57!use climat_forcage_mod
58!use climat_synthes_mod
59!use climat_profil_mod
60!use climat_regions_delta
61
62! pas de differences locales de niveau marin
63use no_rsl
64
65! suivi des traceurs ou pas ?
66!use tracer_mod
67! attention tracer fait appel a un modele climat qui doit etre compatible avec celui choisi
68! dans modile choix.
69
70use notracer_mod
71
72!--------------Choix isostasie----------------------
73!use isostasie_mod  ! module permettant de calculer la deflexion isostasique
74use noisostasie_mod ! module pour ne pas avoir d'isostasie
75
76
77!--------------Module Physique---------------------
78!use deformation_mod        ! module concernant les lois de deformation
79!use deformation_mod_2lois   ! module concernant les lois de deformation
80use deformation_mod_2lois_isoth
81!--------------Module propriete thermique de la glace
82use  prop_thermiques_ice
83! use prop_therm_ice_heino
84
85! eau basale
86use eau_basale
87
88! sliding- dragging
89! use module sliding_vitbal
90! use sliding_Bindschadler
91use no_sliding
92! use sliding_dragging_heino    ! loi de glissement heino : mis dans diffusiv :
93
94
95use dragging_mismip3
96
97! use dragging_vit_bil_LBq_gen
98!use dragging_vitbil
99! use dragging_hwatstream
100
101!use dragging_hwat_cont
102
103!use dragging_hwat_contmaj
104
105! use dragging_vit_bil_CISM_gen
106! use dragging_calc_beta           ! tourne en "no_spinup" qui contient les fake
107!use dragging_prescr_beta
108!use dragging_LGM
109!use dragging_plastic_LGM
110!------------ spinup -----------------------------------
111use no_spinup            ! spinup=0 ou spinup=1
112! use spinup_vitbil      ! plusieurs variantes de spinup : inclue le dragging
113                         ! enlever le use dragging dans ce cas là
114
115
116
117! module concernant l'eq. elliptique (pour les streams et shelves)
118
119! use eq_elliptique_mod ! ancienne version (remplimat-5)
120use eq_ellip_sgbsv_mod ! nouvelle version juillet 2008
121
122! calving
123use no_calving 
124
125! choix resolution de la conservation de la masse
126!-----------------------------------------------
127!use equat_adv_diff_2D           ! conservation masse avec advection-diffusion
128use equat_adv_diff_2D_vect      ! le vecteur est maintenant dans l'appel
129
130! le module en dessous n'est peut etre pas utile, les flux transversaux a 0 devraient suffire
131!use equat_adv_diff_2D_paral      ! equat_adv_diff_2D_vect adapte a un domaine parallele (MISMIP)
132
133!--------------Fusion basale------------------------
134!use bmelt_ant_regions ! pour l'Antarctique avec régions
135
136!use 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
145
146use fake_mismip
147
148! use fake_nord
149!-------------- Outputs-----------------------------
150!
151use out_profile  !profils
152!use out_cptr     ! fichier de reprise
153use out_hz       ! module de sorties snapshot dans un plan horizontal
154
155!-----Suivi temporel
156! use output_heminord_mod
157 use output_antarcti_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.