source: trunk/SOURCES/Ant15_CISM_files/module_choix_antar15CISM.f90 @ 159

Last change on this file since 159 was 4, checked in by dumas, 10 years ago

initial import GRISLI trunk

File size: 3.8 KB
Line 
1!> \file module_choix_antar15CISM.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_15
12!! @note   - use lect_clim_act_ant_15
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
38use 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!use lect_clim_act_anteis
44
45use lect_clim_act_ant_gen
46
47! use lect_clim_act_nord40 ! pour l'hemisphere nord et l'eurasie
48! use  climat_heino
49
50!--------------Lecture climat forcage---------------
51
52use 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 lacs proglaciaires
59use no_lakes
60
61!--------------Choix isostasie----------------------
62use isostasie_mod  ! module permettant de calculer la deflexion isostasique
63!use noisostasie_mod ! module pour ne pas avoir d'isostasie
64
65
66!--------------Module Physique---------------------
67!use deformation_mod  ! module concernant les lois de deformation
68use deformation_mod_2lois   ! module concernant les lois de deformation
69
70!--------------Module propriete thermique de la glace
71use  prop_thermiques_ice
72! use prop_therm_ice_heino
73
74! eau basale
75use eau_basale
76
77! sliding- dragging
78! use module sliding_vitbal
79! use sliding_Bindschadler
80use no_sliding
81! use sliding_dragging_heino    ! loi de glissement heino : mis dans diffusiv :
82
83
84!use dragging_vitbil
85! use dragging_hwatstream
86
87!use dragging_hwat_cont
88
89!use dragging_hwat_contmaj
90
91! use dragging_vit_bil_CISM_gen
92! use dragging_calc_beta
93use dragging_prescr_beta
94
95!------------ spinup -----------------------------------
96 use no_spinup           ! spinup=0
97!use spinup_vitbil         ! plusieurs variantes de spinup : inclue le dragging
98                          ! enlever le use dragging dans ce cas là
99
100
101
102! module concernant l'eq. elliptique (pour les streams et shelves)
103
104! use eq_elliptique_mod ! ancienne version (remplimat-5)
105use eq_ellip_sgbsv_mod ! nouvelle version juillet 2008
106
107! calving
108use calving_frange
109
110! choix resolution de la conservation de la masse
111!-----------------------------------------------
112!use equat_adv_diff_2D          ! conservation masse avec advection-diffusion
113use equat_adv_diff_2D_vect      ! le vecteur est maintenant dans l'appel
114
115!--------------Fusion basale------------------------
116!use bmelt_ant_regions ! pour l'Antarctique avec régions
117
118use bmelt_seuil_prof
119
120! USE BMELT_NOR_REGIONS ! pour le nord avec régions
121! use BMELT_NOR_DEPTH   ! pour le nord avec profondeur d'eau
122
123
124! fake -------fausses routines pour compatibilités
125! use fake_heino
126use fake_ant
127
128! use fake_nord
129!-------------- Outputs-----------------------------
130!
131use out_profile  !profils
132!use out_cptr     ! fichier de reprise
133use out_hz       ! module de sorties snapshot dans un plan horizontal
134
135!-----Suivi temporel
136! use output_heminord_mod
137 use output_antarcti_mod
138! use output_heino
139!-----debugage...
140use printtable
141
142
143
144end module module_choix
Note: See TracBrowser for help on using the repository browser.