source: branches/iLoveclim/SOURCES/Hemin40_files/module_choix-hemin40-0.4.f90 @ 359

Last change on this file since 359 was 359, checked in by aquiquet, 2 years ago

Trunk merged to branch at revision 357

File size: 4.9 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
[244]14!! @note   - use no_rsl
[4]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
[13]47!--------------Module climat ---------------
48!use climat_forcage_mois_mod ! forcage mensuel GCM 1 Snapshot Fev 2015
[32]49!use climat_Grice2sea_years_mod ! forcage avec SMB type MAR Fev2015
[83]50!use climat_Grice2sea_years_perturb_mod ! forcage avec SMB type MAR + perturbation temperature
[359]51!use climat_forcage_mod
[32]52use climat_coupl_atm_mod ! couplage iLOVECLIM
[4]53
[13]54! Anciens modules pas encore valides
55!!!!!!use climat_perturb_mod ! pour simule climat equilibre type Loveclim
56!!!!!!use climat_forcage_stat_mois_mod  ! climat constant mensuel GCMs
57!!!!!!use climat_forcage_mod ! pour cycle force GCM avec index
58!!!!!!use climat_forcage_insolation_mod ! methode JB multi-snapshots mensuelle mais pour un etat stationnaire avec correction topo GCM => GRISLI
59!!!!!!use climat_synthes_mod
60!!!!!!use climat_profil_mod
61!!!!!!use climat_regions_delta
[4]62
[123]63!use ablation_mod ! calcul de l'ablation (PDD ou autre methode)
64use no_ablation  ! pas de calcul de l'ablation => lecture fichier SMB (necessaire avec climat_Grice2sea_years_mod)
[9]65
[244]66! pas de differences locales de niveau marin
67use no_rsl
[254]68!use imposed_regions_rsl
[359]69!use lake_rsl
[4]70
[9]71! suivi des traceurs ou pas ?
72!use tracer_mod  ! probablement pas compatible avec Hemin-40 actuellement
73use notracer_mod
74
[4]75!--------------Choix isostasie----------------------
[9]76use isostasie_mod    ! module permettant de calculer la deflexion isostasique
77!use noisostasie_mod ! module pour ne pas avoir d'isostasie
[4]78
79
80!--------------Module Physique---------------------
[9]81!use deformation_mod         ! module concernant les lois de deformation
82use deformation_mod_2lois   ! module concernant les lois de deformation
[4]83
84! eau basale
85use eau_basale
86
87! sliding- dragging
[9]88!use module sliding_vitbal
[83]89!use sliding_Bindschadler
90use no_sliding
[9]91!use sliding_dragging_heino    ! loi de glissement heino : mis dans diffusiv :
[4]92
93
94!use dragging_vitbil
[9]95!use dragging_hwatstream
[14]96!use dragging_hwat_contmaj ! frottement basal catherine grisliv8 ice stream peu actifs
[83]97!use dragging_hwat_sedim
[4]98!use dragging_hwat_cont
[186]99!use dragging_neff_slope
[244]100!use dragging_param_beta
101use dragging_param_beta_sedim
[4]102
[9]103!------------ spinup -----------------------------------
104use no_spinup           ! spinup=0
105!use spinup_vitbil         ! plusieurs variantes de spinup : inclue le dragging
106                          ! enlever le use dragging dans ce cas là
[4]107
[123]108use furst_schoof_mod  ! module pour calcul flux gr line
109
[4]110! use eq_elliptique_mod ! ancienne version (remplimat-5)
111use eq_ellip_sgbsv_mod ! nouvelle version juillet 2008
112
113! calving
114!use calving_vincent ! ancienne version
115use calving_frange
116
117! choix resolution de la conservation de la masse
118!-----------------------------------------------
[9]119!use equat_adv_diff_2D          ! conservation masse avec advection-diffusion
120use equat_adv_diff_2D_vect      ! le vecteur est maintenant dans l'appel
[4]121
122
123!--------------Fusion basale------------------------
124!use bmelt_ant_regions ! pour l'Antarctique avec régions
[88]125!use bmelt_nor_regions ! pour le nord avec régions
[91]126!use bmelt_nor_depth   ! pour le nord avec profondeur d'eau
[244]127!use bmelt_seuil_prof
[91]128use bmelt_clio_coupl_mod ! coupled version: CLIO bm rates (needs SHELFMELT==1 iLOVECLIM flag)
[4]129
130! fake -------fausses routines pour compatibilités
131! use fake_heino
132! use fake_ant
[9]133use fake_nor
[4]134!-------------- Outputs-----------------------------
135!
136use out_profile  !profils
137!use out_cptr     ! fichier de reprise
[187]138!use out_hz       ! module de sorties snapshot dans un plan horizontal
[4]139
140!-----Suivi temporel
[9]141use output_hemin40_mod
[4]142! use output_antarcti_mod
143! use output_heino
144!-----debugage...
145use printtable
146
147
148end module MODULE_CHOIX
Note: See TracBrowser for help on using the repository browser.