source: trunk/SOURCES/Ant40_files/module_choix-antar40-0.4.f90 @ 23

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

initial import GRISLI trunk

File size: 3.4 KB
Line 
1!> \file module_choix-antar40-0.4.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_anteis   
12!! @note   - use lect_clim_act_anteis
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_hwat_contmaj
21!! @note   - use eq_ellip_sgbsv_mod
22!! @note   - use calving_frange
23!! @note   - use equat_adv_diff_2D_vect     
24!! @note   - use bmelt_ant_regions
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!<
32
33MODULE MODULE_CHOIX
34
35!--------------Lecture topo ------------------------
36! use lect_topo_heino      ! pour Heino
37use lect_topo_anteis    ! pour l'antarctique 40 km
38!use lect_topo_nord40    ! pour l'hemisphere nord 40 km
39!use lect_topo_eurasie   ! pour l'eurasie  (toute resolutions)
40
41!--------------Lecture climat ref ------------------
42use lect_clim_act_anteis
43! use lect_clim_act_nord40 ! pour l'hemisphere nord et l'eurasie
44! use  climat_heino
45
46!--------------Lecture climat forcage---------------
47
48use climat_perturb_mod
49!use climat_forcage_mod
50!use climat_synthes_mod
51!use climat_profil_mod
52!use climat_regions_delta
53
54! pas de lacs proglaciaires
55use no_lakes
56
57!--------------Choix isostasie----------------------
58 use isostasie_mod  ! module permettant de calculer la deflexion isostasique
59! use noisostasie_mod ! module pour ne pas avoir d'isostasie
60
61
62!--------------Module Physique---------------------
63!use deformation_mod  ! module concernant les lois de deformation
64use deformation_mod_2lois   ! module concernant les lois de deformation
65
66!--------------Module propriete thermique de la glace
67use  prop_thermiques_ice
68! use prop_therm_ice_heino
69
70! eau basale
71use eau_basale
72
73! sliding- dragging
74! use module sliding_vitbal
75use sliding_Bindschadler
76! use sliding_dragging_heino    ! loi de glissement heino : mis dans diffusiv :
77
78
79!use dragging_vitbil
80! use dragging_hwatstream
81
82!use dragging_hwat_cont
83
84use dragging_hwat_contmaj
85
86! module concernant l'eq. elliptique (pour les streams et shelves)
87
88! use eq_elliptique_mod ! ancienne version (remplimat-5)
89use eq_ellip_sgbsv_mod ! nouvelle version juillet 2008
90
91! calving
92use calving_frange
93
94! choix resolution de la conservation de la masse
95!-----------------------------------------------
96!use equat_adv_diff_2D          ! conservation masse avec advection-diffusion
97use equat_adv_diff_2D_vect      ! le vecteur est maintenant dans l'appel
98
99!--------------Fusion basale------------------------
100use bmelt_ant_regions ! pour l'Antarctique avec régions
101! USE BMELT_NOR_REGIONS ! pour le nord avec régions
102! use BMELT_NOR_DEPTH   ! pour le nord avec profondeur d'eau
103
104
105! fake -------fausses routines pour compatibilités
106! use fake_heino
107use fake_ant
108
109! use fake_nord
110!-------------- Outputs-----------------------------
111!
112use out_profile  !profils
113!use out_cptr     ! fichier de reprise
114use out_hz       ! module de sorties snapshot dans un plan horizontal
115
116!-----Suivi temporel
117! use output_heminord_mod
118 use output_antarcti_mod
119! use output_heino
120!-----debugage...
121use printtable
122
123
124end module MODULE_CHOIX
Note: See TracBrowser for help on using the repository browser.