source: branches/iLoveclim/SOURCES/Heino_files/module_choix-heino-0.4.f90 @ 406

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

initial import GRISLI trunk

File size: 2.1 KB
Line 
1!
2!
3!  Ce module permet de choisir quels package on veut utiliser
4!
5!
6!
7
8MODULE MODULE_CHOIX
9
10!--------------Lecture topo ------------------------
11use lect_topo_heino      ! pour Heino
12! use lect_topo_anteis    ! pour l'antarctique 40 km
13!use lect_topo_nord40    ! pour l'hemisphere nord 40 km
14!use lect_topo_eurasie   ! pour l'eurasie  (toute resolutions)
15
16!--------------Lecture climat ref ------------------
17! use lect_clim_act_anteis
18!use lect_clim_act_nord40 ! pour l'hemisphere nord et l'eurasie
19use  climat_heino
20
21!--------------Lecture climat forcage---------------
22
23! use CLIMAT_PERTURB_MOD
24!USE CLIMAT_FORCAGE_MOD
25!USE CLIMAT_SYNTHES_MOD
26!USE CLIMAT_PROFIL_MOD
27
28!--------------Choix isostasie----------------------
29!USE ISOSTASIE_MOD  ! module permettant de calculer la deflexion isostasique
30USE NOISOSTASIE_MOD ! module pour ne pas avoir d'isostasie
31
32
33!--------------Module Physique---------------------
34USE DEFORMATION_MOD  ! module concernant les lois de deformation
35
36!--------------Module propritete thermique de la glace
37use prop_therm_ice_heino
38
39
40! eau basale
41use eau_basale
42
43! sliding- dragging ------------------------------
44! use module sliding_vitbal
45! use sliding_Bindschadler
46use sliding_dragging_heino    ! loi de glissement heino : mis dans diffusiv :
47
48!use dragging_vitbil
49!use dragging_hwatstream
50
51use eq_elliptique_mod! module concernant l'eq. elliptique (pour les shelves)
52
53! calving
54use calving_vincent
55
56! choix resolution de la conservation de la masse
57!-----------------------------------------------
58use equat_adv_diff_2D          ! conservation masse avec advection-diffusion
59
60
61!--------------Fusion basale------------------------
62! USE BMELT_ANT_REGIONS ! pour l'Antarctique avec régions
63!USE BMELT_NOR_REGIONS ! pour l'Antarctique avec régions
64
65! fake -------fausses routines pour compatibilités
66use fake_heino
67
68!-------------- Outputs-----------------------------
69!
70use out_profile  !profils
71!use out_cptr     ! fichier de reprise
72use out_hz       ! module de sorties snapshot dans un plan horizontal
73
74!-----Suivi temporel
75! USE OUTPUT_HEMINORD_MOD
76!  USE OUTPUT_ANTARCTI_MOD
77use output_heino
78!-----debugage...
79use printtable
80
81
82end module module_choix
Note: See TracBrowser for help on using the repository browser.