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

Last change on this file since 186 was 186, checked in by aquiquet, 6 years ago

Grisli - iLoveclim branch: Updated gfortran Makefile

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