- Timestamp:
- 10/28/16 09:11:13 (8 years ago)
- Location:
- branches/iLoveclim/SOURCES
- Files:
-
- 1 added
- 6 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/iLoveclim/SOURCES/3D-physique-gen_mod.f90
r90 r91 253 253 real (kind = 8),dimension(nx,ny) :: calvingGRIS 254 254 real (kind = 8),dimension(nx,ny),target :: calvin_GRIS ! calving flux[m3/s] given to CLIO 255 real (kind = 8),dimension(nx,ny,20),target :: bmshelfCLIO ! basal melting given by CLIO 255 256 real, dimension(nx,ny) :: coef_drag !< coefficient de la loi de friction non lineaire : depend de la valeur de alpha_drag 256 257 !< si alpha_drag = 1, coef_drag = drag_centre -
branches/iLoveclim/SOURCES/Hemin40_files/module_choix-hemin40-0.4.f90
r88 r91 117 117 !use bmelt_ant_regions ! pour l'Antarctique avec régions 118 118 !use bmelt_nor_regions ! pour le nord avec régions 119 use bmelt_nor_depth ! pour le nord avec profondeur d'eau120 119 !use bmelt_nor_depth ! pour le nord avec profondeur d'eau 120 use bmelt_clio_coupl_mod ! coupled version: CLIO bm rates (needs SHELFMELT==1 iLOVECLIM flag) 121 121 122 122 ! fake -------fausses routines pour compatibilités -
branches/iLoveclim/SOURCES/Makefile.grisli-gfortran.inc
r78 r91 82 82 conserv-mass-adv-diff_sept2009_mod.o \ 83 83 eaubasale-0.5_mod.o spinup_mod.o no_spinup_mod.o \ 84 tridiag_mod-0.3.o out_horiz_mod.o bmelt-seuil-profondeur_mod.o 84 tridiag_mod-0.3.o out_horiz_mod.o \ 85 bmelt_clio_coupl_mod.o bmelt-seuil-profondeur_mod.o 85 86 86 87 mod_communs_RGL = util_recovery.o \ -
branches/iLoveclim/SOURCES/Makefile.grisli.inc
r78 r91 81 81 conserv-mass-adv-diff_sept2009_mod.o \ 82 82 eaubasale-0.5_mod.o spinup_mod.o no_spinup_mod.o \ 83 tridiag_mod-0.3.o out_horiz_mod.o bmelt-seuil-profondeur_mod.o 83 tridiag_mod-0.3.o out_horiz_mod.o \ 84 bmelt_clio_coupl_mod.o bmelt-seuil-profondeur_mod.o 84 85 85 86 mod_communs_RGL = util_recovery.o \ -
branches/iLoveclim/SOURCES/main3D-0.4-40km.f90
r40 r91 137 137 end do time_loop 138 138 139 bmshelfCLIO(:,:,:) = 0d0 140 139 141 if (itracebug.eq.1) call tracebug('dans main avant call out_recovery ') 140 142 call out_recovery(iout) -
branches/iLoveclim/SOURCES/steps_time_loop.f90
r77 r91 246 246 call ablation 247 247 248 248 ! oceanic forcing 249 !===================== 250 call bmeltshelf ! afq -- icetemp is not called before the 4th dtt, so a first call to bmelt here 249 251 250 252 ! SIA dynamic velocities (deformation + loi de glissement ) … … 289 291 call icetemp 290 292 ! subroutines pour le calcul de la fusion basale 293 ! afq -- 28-10-2016: there is a reset of bmelt in temp_col in the 294 ! current version of the code, so shelf and grounded melt have to 295 ! be called here. TODO: remove reset in icetemp routines?? 291 296 call bmeltshelf 292 297 call bmelt_grounded
Note: See TracChangeset
for help on using the changeset viewer.