source: trunk/SOURCES/Heino_files/module_choix-0.4.f90 @ 159

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

initial import GRISLI trunk

File size: 2.6 KB
Line 
1!> \file module_choix-0.4.f90
2!! Ce module permet de choisir quels package on veut utiliser
3!<
4
5!> \namespace MODULE_CHOIX
6!! Ce module permet de choisir quels package on veut utiliser
7!! \author CatRitz
8!! \date ...
9!! @note Used modules
10!! @note   - use lect_topo_heino     
11!! @note   - use  climat_heino
12!! @note   - USE NOISOSTASIE_MOD ! module pour ne pas avoir d'isostasie
13!! @note   - USE DEFORMATION_MOD 
14!! @note   - use prop_therm_ice_heino
15!! @note   - use sliding_Bindschadler
16!! @note   - use dragging_hwatstream
17!! @note   - USE EQ_ELLIPTIQUE_MOD
18!! @note   - use BMELT_NOR_DEPTH 
19!! @note   - use fake_nord
20!! @note   - use out_profile
21!! @note   - use out_cptr     
22!! @note   - use out_hz     
23!! @note   - USE OUTPUT_HEMINORD_MOD
24!! @note   - use printtable
25!<
26
27
28MODULE MODULE_CHOIX
29
30!--------------Lecture topo ------------------------
31 use lect_topo_heino      ! pour Heino
32! use lect_topo_anteis    ! pour l'antarctique 40 km
33!use lect_topo_nord40    ! pour l'hemisphere nord 40 km
34!use lect_topo_eurasie   ! pour l'eurasie  (toute resolutions)
35
36!--------------Lecture climat ref ------------------
37! use lect_clim_act_anteis
38! use lect_clim_act_nord40 ! pour l'hemisphere nord et l'eurasie
39 use  climat_heino
40
41!--------------Lecture climat forcage---------------
42
43!use CLIMAT_PERTURB_MOD
44!USE CLIMAT_FORCAGE_MOD
45!USE CLIMAT_SYNTHES_MOD
46!USE CLIMAT_PROFIL_MOD
47!use CLIMAT_REGIONS_DELTA
48
49!--------------Choix isostasie----------------------
50! USE ISOSTASIE_MOD  ! module permettant de calculer la deflexion isostasique
51USE NOISOSTASIE_MOD ! module pour ne pas avoir d'isostasie
52
53
54!--------------Module Physique---------------------
55USE DEFORMATION_MOD  ! module concernant les lois de deformation
56
57!--------------Module propritete thermique de la glace
58! use  prop_thermiques_ice
59use prop_therm_ice_heino
60! use sliding_heino    ! loi de glissement heino : mis dans diffusiv :
61
62! use module sliding_vitbal
63use sliding_Bindschadler
64
65!use dragging_vitbil
66use dragging_hwatstream
67
68USE EQ_ELLIPTIQUE_MOD! module concernant l'eq. elliptique (pour les shelves)
69
70
71!--------------Fusion basale------------------------
72! USE BMELT_ANT_REGIONS ! pour l'Antarctique avec régions
73! USE BMELT_NOR_REGIONS ! pour le nord avec régions
74use BMELT_NOR_DEPTH   ! pour le nord avec profondeur d'eau
75! use fake_heino
76! use fake_ant
77use fake_nord
78!-------------- Outputs-----------------------------
79!
80use out_profile  !profils
81!use out_cptr     ! fichier de reprise
82use out_hz       ! module de sorties snapshot dans un plan horizontal
83
84!-----Suivi temporel
85 USE OUTPUT_HEMINORD_MOD
86! USE OUTPUT_ANTARCTI_MOD
87! use output_heino
88!-----debugage...
89use printtable
90
91
92END MODULE MODULE_CHOIX
Note: See TracBrowser for help on using the repository browser.