source: trunk/SOURCES/Eurasie40_files/module_choix-eurasie-0.4.f90 @ 111

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

initial import GRISLI trunk

File size: 3.2 KB
Line 
1!> \file module_choix-eurasie-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 use lect_topo_eurasie   
12!! @note   - use climat_forcage_mois_mod
13!! @note   - use lakes_prescribed_mod
14!! @note   - use isostasie_mod 
15!! @note   - use deformation_mod
16!! @note   - use  prop_thermiques_ice
17!! @note   - use eau_basale
18!! @note   - use sliding_Bindschadler
19!! @note   - use dragging_hwat_contmaj
20!! @note   - use eq_ellip_sgbsv_mod
21!! @note   - use calving_frange
22!! @note   - use equat_adv_diff_2D       
23!! @note   - use bmelt_eurasie_regions
24!! @note   - use fake_eurasie
25!! @note   - use out_profile 
26!! @note   - use out_cptr     
27!! @note   - use out_hz       
28!! @note   - use output_eurasie40_mod
29!! @note   - use printtable
30!<
31
32
33MODULE MODULE_CHOIX
34
35!--------------Lecture topo ------------------------
36!use lect_topo_anteis    ! pour l'antarctique 40 km
37!use lect_topo_nord40    ! pour l'hemisphere nord 40 km
38 use lect_topo_eurasie   ! pour l'eurasie  (toute resolutions)
39
40!--------------Lecture climat ref ------------------
41! use lect_clim_act_anteis
42! use lect_clim_act_nord40   ! pour l'hemisphere nord
43! use lect_clim_act_eurasie ! pour l'eurasie
44
45!--------------Lecture climat forcage---------------
46! use climat_perturb_mod
47! use climat_forcage_mod
48! use climat_forcage_eurasie_mod
49! use climat_forcage_stat_mois_mod
50use climat_forcage_mois_mod
51! use climat_synthes_mod
52! use climat_profil_mod
53
54! lacs proglaciaires
55use lakes_prescribed_mod
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!--------------Module Physique---------------------
62use deformation_mod  ! module concernant les lois de deformation
63
64!--------------Module propritete thermique de la glace
65use  prop_thermiques_ice
66! use prop_therm_ice_heino
67
68! eau basale
69use eau_basale
70
71! sliding- dragging
72! use module sliding_vitbal
73use sliding_Bindschadler
74! use sliding_dragging_heino    ! loi de glissement heino : mis dans diffusiv :
75
76
77!use dragging_vitbil
78! use dragging_hwatstream
79
80!use dragging_hwat_cont
81
82use dragging_hwat_contmaj
83
84! use eq_elliptique_mod ! ancienne version (remplimat-5)
85use eq_ellip_sgbsv_mod ! nouvelle version juillet 2008
86
87! calving
88!use calving_vincent ! ancienne version
89use calving_frange
90
91
92! choix resolution de la conservation de la masse
93!-----------------------------------------------
94use equat_adv_diff_2D          ! conservation masse avec advection-diffusion
95
96!--------------Fusion basale------------------------
97!use bmelt_ant_regions ! pour l'Antarctique avec régions
98 use bmelt_eurasie_regions ! pour l'Eurasie avec régions
99
100! fake -------fausses routines pour compatibilités
101! use fake_heino
102use fake_eurasie
103! use fake_nord
104!-------------- Outputs-----------------------------
105!
106use out_profile  !profils
107!use out_cptr     ! fichier de reprise
108use out_hz       ! module de sorties snapshot dans un plan horizontal
109
110!-----Suivi temporel
111! use output_heminord_mod
112use output_eurasie40_mod
113
114!-----debugage...
115use printtable
116
117
118END MODULE MODULE_CHOIX
Note: See TracBrowser for help on using the repository browser.