[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 | |
---|
| 33 | MODULE MODULE_CHOIX |
---|
| 34 | |
---|
| 35 | !--------------Lecture topo ------------------------ |
---|
| 36 | ! use lect_topo_heino ! pour Heino |
---|
| 37 | ! use lect_topo_anteis ! pour l'antarctique 40 km |
---|
| 38 | use 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] | 52 | use 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) |
---|
| 64 | use 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 |
---|
| 67 | use 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 |
---|
| 73 | use notracer_mod |
---|
| 74 | |
---|
[4] | 75 | !--------------Choix isostasie---------------------- |
---|
[9] | 76 | use 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 |
---|
| 82 | use deformation_mod_2lois ! module concernant les lois de deformation |
---|
[4] | 83 | |
---|
| 84 | ! eau basale |
---|
| 85 | use eau_basale |
---|
| 86 | |
---|
| 87 | ! sliding- dragging |
---|
[9] | 88 | !use module sliding_vitbal |
---|
[83] | 89 | !use sliding_Bindschadler |
---|
| 90 | use 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 |
---|
| 101 | use dragging_param_beta_sedim |
---|
[4] | 102 | |
---|
[9] | 103 | !------------ spinup ----------------------------------- |
---|
| 104 | use 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] | 108 | use furst_schoof_mod ! module pour calcul flux gr line |
---|
| 109 | |
---|
[4] | 110 | ! use eq_elliptique_mod ! ancienne version (remplimat-5) |
---|
| 111 | use eq_ellip_sgbsv_mod ! nouvelle version juillet 2008 |
---|
| 112 | |
---|
| 113 | ! calving |
---|
| 114 | !use calving_vincent ! ancienne version |
---|
| 115 | use 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 |
---|
| 120 | use 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] | 128 | use 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] | 133 | use fake_nor |
---|
[4] | 134 | !-------------- Outputs----------------------------- |
---|
| 135 | ! |
---|
| 136 | use 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] | 141 | use output_hemin40_mod |
---|
[4] | 142 | ! use output_antarcti_mod |
---|
| 143 | ! use output_heino |
---|
| 144 | !-----debugage... |
---|
| 145 | use printtable |
---|
| 146 | |
---|
| 147 | |
---|
| 148 | end module MODULE_CHOIX |
---|