[4] | 1 | !> \file module_choix_antar15_LBq.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_ant_CISM_gen |
---|
| 12 | !! @note - use lect_clim_act_ant_gen |
---|
| 13 | !! @note - use climat_perturb_mod |
---|
| 14 | !! @note - use no_lakes |
---|
| 15 | !! @note - use isostasie_mod |
---|
| 16 | !! @note - use deformation_mod_2lois |
---|
| 17 | !! @note - use prop_thermiques_ice |
---|
| 18 | !! @note - use eau_basale |
---|
| 19 | !! @note - use sliding_Bindschadler |
---|
| 20 | !! @note - use dragging_vit_bil_CISM_gen |
---|
| 21 | !! @note - use eq_ellip_sgbsv_mod |
---|
| 22 | !! @note - use calving_frange |
---|
| 23 | !! @note - use equat_adv_diff_2D_vect |
---|
| 24 | !! @note - use bmelt_seuil_prof |
---|
| 25 | !! @note - use fake_ant |
---|
| 26 | !! @note - use out_profile |
---|
| 27 | !! @note - use out_cptr |
---|
| 28 | !! @note - use out_hz |
---|
| 29 | !! @note - use output_antarcti_mod |
---|
| 30 | !! @note - use printtable |
---|
| 31 | !< |
---|
| 32 | MODULE MODULE_CHOIX |
---|
| 33 | |
---|
| 34 | !--------------Lecture topo ------------------------ |
---|
| 35 | ! use lect_topo_heino ! pour Heino |
---|
| 36 | ! use lect_topo_anteis ! pour l'antarctique 40 km |
---|
| 37 | |
---|
| 38 | !use lect_topo_ant_gen ! read antarctic topo with .dat files |
---|
| 39 | !use lect_topo_ant_CISM_gen |
---|
| 40 | !use lect_topo_nord40 ! pour l'hemisphere nord 40 km |
---|
| 41 | !use lect_topo_eurasie ! pour l'eurasie (toute resolutions) |
---|
| 42 | |
---|
| 43 | use lect_topo_green_gen ! lecture generale pour le groenland |
---|
| 44 | |
---|
| 45 | !--------------Lecture climat ref ------------------ |
---|
| 46 | !use lect_clim_act_anteis |
---|
| 47 | |
---|
| 48 | ! use lect_clim_act_ant_gen |
---|
| 49 | ! use lect_clim_acc_T_ant_gen |
---|
| 50 | |
---|
[11] | 51 | ! use lect_climref_Ice2sea ! pour les experiences avec le climat de reference |
---|
[4] | 52 | |
---|
| 53 | ! use lect_clim_act_nord40 ! pour l'hemisphere nord et l'eurasie |
---|
| 54 | ! use climat_heino |
---|
| 55 | |
---|
| 56 | !--------------Lecture climat forcage--------------- |
---|
| 57 | !use climat_perturb_mod |
---|
| 58 | !use climat_forcage_mod |
---|
| 59 | !use climat_synthes_mod |
---|
| 60 | !use climat_profil_mod |
---|
| 61 | !use climat_regions_delta |
---|
| 62 | !use climat_Grice2sea_mod ! pour les experiences ice2sea |
---|
| 63 | |
---|
| 64 | use climat_Grice2sea_years_mod |
---|
| 65 | |
---|
[11] | 66 | ! calcul de l'ablation |
---|
| 67 | use no_ablation ! pas de calcul de l'ablation => lecture fichier SMB |
---|
| 68 | |
---|
[4] | 69 | ! pas de lacs proglaciaires |
---|
| 70 | use no_lakes |
---|
| 71 | |
---|
| 72 | ! suivi des traceurs ou pas ? |
---|
| 73 | !use tracer_mod |
---|
| 74 | ! attention tracer fait appel a un modele climat qui doit etre compatible avec celui choisi |
---|
| 75 | ! dans modile choix. |
---|
| 76 | |
---|
| 77 | use notracer_mod |
---|
| 78 | |
---|
| 79 | !--------------Choix isostasie---------------------- |
---|
| 80 | use isostasie_mod ! module permettant de calculer la deflexion isostasique |
---|
| 81 | !use noisostasie_mod ! module pour ne pas avoir d'isostasie |
---|
| 82 | |
---|
| 83 | |
---|
| 84 | !--------------Module Physique--------------------- |
---|
| 85 | !use deformation_mod ! module concernant les lois de deformation |
---|
| 86 | use deformation_mod_2lois ! module concernant les lois de deformation |
---|
| 87 | |
---|
| 88 | !--------------Module propriete thermique de la glace |
---|
| 89 | ! use prop_therm_ice_heino |
---|
| 90 | |
---|
| 91 | ! eau basale |
---|
| 92 | use eau_basale |
---|
| 93 | |
---|
| 94 | ! sliding- dragging |
---|
| 95 | ! use module sliding_vitbal |
---|
| 96 | ! use sliding_Bindschadler |
---|
| 97 | use no_sliding |
---|
| 98 | ! use sliding_dragging_heino ! loi de glissement heino : mis dans diffusiv : |
---|
| 99 | |
---|
| 100 | ! use dragging_vit_bil_LBq_gen |
---|
| 101 | !use dragging_vitbil |
---|
| 102 | ! use dragging_hwatstream |
---|
| 103 | |
---|
| 104 | !use dragging_hwat_cont |
---|
| 105 | |
---|
| 106 | !use dragging_hwat_contmaj |
---|
| 107 | |
---|
| 108 | ! use dragging_vit_bil_CISM_gen |
---|
| 109 | ! use dragging_calc_beta ! tourne en "no_spinup" qui contient les fake |
---|
[21] | 110 | !use dragging_prescr_beta |
---|
| 111 | use beta_iter_vitbil_mod |
---|
[4] | 112 | !use dragging_LGM |
---|
| 113 | !use dragging_plastic_LGM |
---|
| 114 | !------------ spinup ----------------------------------- |
---|
| 115 | use no_spinup ! spinup=0 ou spinup=1 |
---|
| 116 | !use spinup_vitbil ! plusieurs variantes de spinup : inclue le dragging |
---|
| 117 | ! enlever le use dragging dans ce cas là |
---|
| 118 | |
---|
[93] | 119 | use furst_schoof_mod ! module pour calcul flux gr line |
---|
[4] | 120 | |
---|
| 121 | ! module concernant l'eq. elliptique (pour les streams et shelves) |
---|
| 122 | ! use eq_elliptique_mod ! ancienne version (remplimat-5) |
---|
| 123 | use eq_ellip_sgbsv_mod ! nouvelle version juillet 2008 |
---|
| 124 | |
---|
| 125 | ! calving |
---|
| 126 | use calving_frange |
---|
| 127 | |
---|
| 128 | ! choix resolution de la conservation de la masse |
---|
| 129 | !----------------------------------------------- |
---|
| 130 | !use equat_adv_diff_2D ! conservation masse avec advection-diffusion |
---|
| 131 | use equat_adv_diff_2D_vect ! le vecteur est maintenant dans l'appel |
---|
| 132 | |
---|
| 133 | !--------------Fusion basale------------------------ |
---|
| 134 | !use bmelt_ant_regions ! pour l'Antarctique avec régions |
---|
| 135 | |
---|
| 136 | use bmelt_seuil_prof |
---|
| 137 | |
---|
| 138 | ! USE BMELT_NOR_REGIONS ! pour le nord avec régions |
---|
| 139 | ! use BMELT_NOR_DEPTH ! pour le nord avec profondeur d'eau |
---|
| 140 | |
---|
| 141 | |
---|
| 142 | ! fake -------fausses routines pour compatibilités |
---|
| 143 | ! use fake_heino |
---|
| 144 | ! use fake_ant |
---|
| 145 | use fake_grice2sea |
---|
| 146 | ! use fake_nord |
---|
| 147 | !-------------- Outputs----------------------------- |
---|
| 148 | ! |
---|
| 149 | use out_profile !profils |
---|
| 150 | |
---|
| 151 | !-----Suivi temporel |
---|
| 152 | ! use output_heminord_mod |
---|
| 153 | ! use output_antarcti_mod |
---|
| 154 | use output_grice2sea_mod |
---|
| 155 | ! use output_heino |
---|
| 156 | !-----debugage... |
---|
| 157 | use printtable |
---|
| 158 | |
---|
| 159 | |
---|
| 160 | |
---|
| 161 | end module module_choix |
---|