source: trunk/SOURCES/Hemin40_files/module_choix-hemin40-0.4.f90 @ 9

Last change on this file since 9 was 9, checked in by dumas, 9 years ago

Mise en place de Hemin-40 avec nouveaux module climat : climat_forcage_mois_mod.f90, ablation_mod.f90, pdd_declar_mod.f90. Suppression de l'appel à lect-clim-act-hemin40_mod.f90

File size: 4.2 KB
RevLine 
[4]1!> \file module_choix-hemin40-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_hemin40   
12!! @note   - use lect_clim_act_hemin40
13!! @note   - use climat_forcage_mod
14!! @note   - use no_lakes
15!! @note   - use isostasie_mod 
16!! @note   - use deformation_mod
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       
24!! @note   - use bmelt_nor_regions
25!! @note   - use fake_nor
26!! @note   - use out_profile 
27!! @note   - use out_cptr   
28!! @note   - use out_hz       
29!! @note   - use output_hemin40_mod
30!! @note   - use printtable
31!<
32
33MODULE MODULE_CHOIX
34
35!--------------Lecture topo ------------------------
36! use lect_topo_heino      ! pour Heino
37! use lect_topo_anteis    ! pour l'antarctique 40 km
38use lect_topo_hemin40    ! pour l'hemisphere nord 40 km
39!use lect_topo_eurasie   ! pour l'eurasie  (toute resolutions)
40
41!--------------Lecture climat ref ------------------
[9]42! Le climat de ref si necessaire est maintenant lu par le module de climat directement
[4]43!use lect_clim_act_anteis
[9]44!use lect_clim_act_hemin40 ! pour l'hemisphere nord et l'eurasie
[4]45! use  climat_heino
46
47!--------------Lecture climat forcage---------------
48
[9]49!use climat_perturb_mod ! pour simule climat equilibre type Loveclim
50!use climat_forcage_stat_mois_mod  ! climat constant mensuel GCMs
51!use climat_forcage_mod ! pour cycle force GCM avec index
52use climat_forcage_mois_mod ! forcage mensuel GCM 1 Snapshot
53! use climat_forcage_insolation_mod ! methode JB multi-snapshots mensuelle mais pour un etat stationnaire avec correction topo GCM => GRISLI
[4]54!use climat_synthes_mod
55!use climat_profil_mod
56!use climat_regions_delta
57
[9]58use ablation_mod ! calcul de l'ablation (PDD ou autre methode)
59
[4]60! pas de lacs proglaciaires
61use no_lakes
62
[9]63! suivi des traceurs ou pas ?
64!use tracer_mod  ! probablement pas compatible avec Hemin-40 actuellement
65use notracer_mod
66
[4]67!--------------Choix isostasie----------------------
[9]68use isostasie_mod    ! module permettant de calculer la deflexion isostasique
69!use noisostasie_mod ! module pour ne pas avoir d'isostasie
[4]70
71
72!--------------Module Physique---------------------
[9]73!use deformation_mod         ! module concernant les lois de deformation
74use deformation_mod_2lois   ! module concernant les lois de deformation
[4]75
76!--------------Module propritete thermique de la glace
[9]77use prop_thermiques_ice
[4]78! use prop_therm_ice_heino
79
80! eau basale
81use eau_basale
82
83! sliding- dragging
[9]84!use module sliding_vitbal
[4]85use sliding_Bindschadler
[9]86!use sliding_dragging_heino    ! loi de glissement heino : mis dans diffusiv :
[4]87
88
89!use dragging_vitbil
[9]90!use dragging_hwatstream
[4]91use dragging_hwat_contmaj
92!use dragging_hwat_cont
93
[9]94!------------ spinup -----------------------------------
95use no_spinup           ! spinup=0
96!use spinup_vitbil         ! plusieurs variantes de spinup : inclue le dragging
97                          ! enlever le use dragging dans ce cas là
[4]98
99! use eq_elliptique_mod ! ancienne version (remplimat-5)
100use eq_ellip_sgbsv_mod ! nouvelle version juillet 2008
101
102! calving
103!use calving_vincent ! ancienne version
104use calving_frange
105
106! choix resolution de la conservation de la masse
107!-----------------------------------------------
[9]108!use equat_adv_diff_2D          ! conservation masse avec advection-diffusion
109use equat_adv_diff_2D_vect      ! le vecteur est maintenant dans l'appel
[4]110
111
112!--------------Fusion basale------------------------
113!use bmelt_ant_regions ! pour l'Antarctique avec régions
[9]114use bmelt_nor_regions ! pour le nord avec régions
[4]115!use bmelt_nor_depth   ! pour le nord avec profondeur d'eau
116
117
118! fake -------fausses routines pour compatibilités
119! use fake_heino
120! use fake_ant
[9]121use fake_nor
[4]122!-------------- Outputs-----------------------------
123!
124use out_profile  !profils
125!use out_cptr     ! fichier de reprise
126use out_hz       ! module de sorties snapshot dans un plan horizontal
127
128!-----Suivi temporel
[9]129use output_hemin40_mod
[4]130! use output_antarcti_mod
131! use output_heino
132!-----debugage...
133use printtable
134
135
136end module MODULE_CHOIX
Note: See TracBrowser for help on using the repository browser.