Changeset 68


Ignore:
Timestamp:
06/03/16 16:06:35 (8 years ago)
Author:
dumas
Message:

No sliding in module_choix | Antarctic 15km configuration usable | Use depth instade of dist_talus in bmelt-ant-regions_mod.f90

Location:
trunk/SOURCES
Files:
11 edited

Legend:

Unmodified
Added
Removed

  • trunk/SOURCES/ANT15-LBq_files/module_choix_antar15_LBq.f90

    r4 r68  
    3636! use lect_topo_anteis    ! pour l'antarctique 40 km 
    3737 
    38 use lect_topo_ant_gen    ! read antarctic topo with .dat files 
     38!use lect_topo_ant_gen    ! read antarctic topo with .dat files Catherine 
     39use lect_topo_anteis    ! pour l'antarctique 40 km ou 15km Christophe 
    3940!use lect_topo_ant_CISM_gen 
    4041!use lect_topo_nord40    ! pour l'hemisphere nord 40 km 
    … …  
    4546 
    4647! use lect_clim_act_ant_gen 
    47 use lect_clim_acc_T_ant_gen 
     48! use lect_clim_acc_T_ant_gen ! module Catherine climat Antarctique 
     49 
     50!--------------Module climat --------------- 
     51!use climat_forcage_mois_mod ! forcage mensuel GCM 1 Snapshot Fev 2015 
     52!use climat_Grice2sea_years_mod  ! climat force par fichier SMB directement (grice2sea) 
     53use climat_Grice2sea_years_perturb_mod ! forcage avec SMB type MAR et evolutionn temporelle (futur ou carotte) 
    4854 
    4955! use lect_clim_act_nord40 ! pour l'hemisphere nord et l'eurasie 
    … …  
    5157 
    5258!--------------Lecture climat forcage--------------- 
    53 use climat_perturb_mod 
     59!use climat_perturb_mod 
    5460!use climat_forcage_mod 
    5561!use climat_synthes_mod 
    5662!use climat_profil_mod 
    5763!use climat_regions_delta 
     64 
     65!use ablation_mod ! calcul de l'ablation (PDD ou autre methode) 
     66use no_ablation  ! pas de calcul de l'ablation => lecture fichier SMB (necessaire avec climat_Grice2sea_years_mod) 
    5867 
    5968! pas de lacs proglaciaires 
    … …  
    6473! attention tracer fait appel a un modele climat qui doit etre compatible avec celui choisi  
    6574! dans modile choix. 
    66  
    6775use notracer_mod 
    6876 
    … …  
    7583!use deformation_mod  ! module concernant les lois de deformation 
    7684use deformation_mod_2lois   ! module concernant les lois de deformation 
    77  
    78 !--------------Module propriete thermique de la glace 
    79 use  prop_thermiques_ice 
    80 ! use prop_therm_ice_heino 
    8185 
    8286! eau basale 
    … …  
    104108! use dragging_beta_buoy     ! beta fonction de la flottaison 
    105109 
    106 use dragging_beta_nolin      ! beta non lineaire 
     110!use dragging_beta_nolin      ! beta non lineaire 
     111 
     112use dragging_neff_slope ! dragging Aurelien et Christophe 
    107113 
    108114!use beta_iter_vitbil_mod 
    … …  
    111117!use dragging_plastic_LGM 
    112118!------------ spinup ----------------------------------- 
    113  use no_spinup           ! spinup=0 ou spinup=1  
     119use no_spinup           ! spinup=0 ou spinup=1  
    114120! use spinup_vitbil      ! plusieurs variantes de spinup : inclue le dragging 
    115121                         ! enlever le use dragging dans ce cas là 
    … …  
    133139!use bmelt_ant_regions ! pour l'Antarctique avec régions 
    134140 
    135 use bmelt_seuil_prof 
     141!use bmelt_seuil_prof 
     142use bmelt_ant_regions ! pour l'Antarctique avec régions 
    136143 
    137 ! USE BMELT_NOR_REGIONS ! pour le nord avec régions 
     144! use BMELT_NOR_REGIONS ! pour le nord avec régions 
    138145! use BMELT_NOR_DEPTH   ! pour le nord avec profondeur d'eau 
    139146 

  • trunk/SOURCES/ANT15-LBq_files/paradim-ant15_LBq_mod.f90

    r4 r68  
    1616! character 
    1717character(len=7),  parameter  :: geoplace='A-LBq15' 
    18 character(len=23), parameter  :: dirnameinp='../INPUT/ANT-LBq-15km/' !< input directory 
    19 character(len=17), parameter  :: dirforcage='../INPUT/Forcage/'      !< input directory 
     18character(len=25), parameter  :: dirnameinp='../../INPUT/ANT-LBq-15km/' !< input directory 
     19character(len=20), parameter  :: dirforcage='../../INPUT/Forcage/'      !< input directory 
    2020 
    2121! dimensionnement grilles 

  • trunk/SOURCES/Ant40_files/bmelt-ant-regions_mod.f90

    r49 r68  
    1414MODULE  BMELT_ANT_REGIONS         ! cat juillet 2005 
    1515 
    16   USE module3D_phy 
    17  
     16  use module3D_phy 
    1817 
    1918  implicit none 
    … …  
    2625  !< utilises pour moduler la fusion sous le shelf 
    2726  integer, dimension(10) :: region      !< pour écrire dans le fichier param 
    28   character(len=30),dimension(10) :: regname !< nom des régions  
     27  character(len=30),dimension(10) :: regname !< nom des régions 
     28  character(len=100) :: file_number_shelves ! fichier avec les zones ice-shelves 
    2929  real :: bsupshelf 
    3030  integer :: grd                        !< pour une sortie  
    … …  
    5151         bmelt_Amery,bmgrz_Amery,bmelt_PIG,bmgrz_PIG,  & 
    5252         bmelt_Pen,bmgrz_Pen,bmelt_other,bmgrz_other,  &        
    53          bmelt_talus,bmgrz_talus,bmelt_coef       
     53         bmelt_talus,bmgrz_talus,bmelt_coef,file_number_shelves       
    5454 
    5555 
    … …  
    7878    write(num_rep_42,*) 'bmgrz_talus     = ',bmgrz_talus 
    7979    write(num_rep_42,*) 'bmelt_coef      = ',bmelt_coef 
     80    write(num_rep_42,*) 'file_numer_shelves = ',file_number_shelves 
    8081    write(num_rep_42,*)'/'                             
    8182    write(num_rep_42,428) '! bmelt_Ross & bmgrz_Ross    :  fonte basale secteur Ross' 
    … …  
    8788    write(num_rep_42,428) '! bmelt_talus & bmgrz_talus  :  fonte basale apres talus cont' 
    8889    write(num_rep_42,428) '! bmelt_coef                 :  coef fonte (1 pour conserver val)' 
     90    write(num_rep_42,428) '! file_numer_ice-shelves     : fichier zones ice shelves' 
    8991    write(num_rep_42,*) 
    9092 
    9193 
    92     !    ecriture dans le fichier parametres 
    93     write(num_rep_42,*)'fusion basale sous les ice shelves : bmelt-ant-regions_mod' 
    94     write(num_rep_42,*)'----------------------------------------------------------' 
    95  
    96  
    97     ! lecture du fichier contenant les distances au talu continental (m) 
    98     open(88,file=TRIM(DIRNAMEINP)//'distance_talu-40km.xy') 
    99  
    100     do j=1,ny 
    101        do i=1,nx 
    102           read(88,'(i3,1x,i3,1x,f10.2)') k,k,dist_talu(i,j) 
    103        enddo 
    104     enddo 
    105     close(88) 
    106  
    107     ! les bords de la grille sont mis a dist_talus=0 de force 
    108  
    109  
    110     dist_talu(1,:)=0.   !a gauche 
    111     dist_talu(2,:)=0. 
    112  
    113     dist_talu(nx-1,:)=0. !  a droite  
    114     dist_talu(nx,:)=0.   
    115  
    116     dist_talu(:,1)=0.    ! en bas    
    117     dist_talu(:,2)=0. 
    118  
    119     dist_talu(:,ny-1)=0.    ! en haut 
    120     dist_talu(:,ny)=0. 
    121  
    122  
    123     debug_3D(:,:,32)=dist_talu(:,:) 
    12494 
    12595    ! lecture du fichier contenant les types de shelves Ronne-Flichner 
    12696    !  ->1, Ross -> 2 , Amery -> 3, PIG-> 4, les petits shelves au dessus de PIG -> 5 
    127  
    128     open(88,file=TRIM(DIRNAMEINP)//'numer-ice-shelves-juil07.dat',status='OLD') 
    12997    typeshelf(:,:)=100 
    130     do k=1,nx*ny 
    131        read(88,*,end=36) i,j,typeshelf(i,j) 
    132     end do 
    133 36  close(88) 
    134  
    135  
     98    file_number_shelves=TRIM(DIRNAMEINP)//trim(file_number_shelves) 
     99!    call lect_input(1,'z',1,typeshelf,file_number_shelves,file_ncdf) 
     100!    open(88,file=TRIM(DIRNAMEINP)//'numer-ice-shelves-juil07.dat',status='OLD') 
     101    open(88,file=TRIM(file_number_shelves),status='OLD') 
     102        do j=1,ny 
     103                do i=1,nx 
     104                        read(88,*) typeshelf(i,j) 
     105        enddo    
     106        enddo 
     107        close(88) 
    136108 
    137109    region(:)=0 
    … …  
    147119       do i=1,nx 
    148120 
    149           talus:    if (dist_talu(i,j).GT.5000.) then 
     121          talus:    if (Bsoc(i,j).LT.2500.) then 
    150122             if (nint(typeshelf(i,j)).eq.1) then ! Ronne-Filchner FRis 
    151123                bmshelf(i,j)=bmelt_FRis          

  • trunk/SOURCES/Ant40_files/module_choix-antar40-0.4.f90

    r62 r68  
    4747!use climat_forcage_mois_mod ! forcage mensuel GCM 1 Snapshot Fev 2015 
    4848!use climat_perturb_mod   ! climat perturbe a reverifier Dec 2015 
    49 use climat_Grice2sea_years_mod  ! climat force par fichier SMB directement (grice2sea) 
    50 !use climat_Grice2sea_years_perturb_mod ! climat force par fichier SMB directement (grice2sea) + index temperature carotte de glace 
     49!use climat_Grice2sea_years_mod  ! climat force par fichier SMB directement (grice2sea) 
     50use climat_Grice2sea_years_perturb_mod ! climat force par fichier SMB directement (grice2sea) + index temperature carotte de glace 
    5151 
    5252 
    … …  
    8080! sliding- dragging 
    8181! use module sliding_vitbal 
    82 use sliding_Bindschadler 
     82! use sliding_Bindschadler 
     83use no_sliding 
    8384! use sliding_dragging_heino    ! loi de glissement heino : mis dans diffusiv :  
    8485 

  • trunk/SOURCES/Antarctique_general_files/output_anta_mod-0.4.f90

    r4 r68  
    123123     
    124124    filout   = runname//'_vol_regions.dat' 
    125     filout    = TRIM(DIRNAMEOUT)//'time-series/'//TRIM(filout) 
     125    filout    = TRIM(DIRNAMEOUT)//TRIM(filout) 
    126126    open(nvol,file=filout) 
    127127     
    128128    filout   = runname// '_volbuoy_regions.dat' 
    129     filout    = TRIM(DIRNAMEOUT)//'time-series/'//TRIM(filout) 
     129    filout    = TRIM(DIRNAMEOUT)//TRIM(filout) 
    130130    open(nvolbuoy,file=filout) 
    131131     
    132132    filout   = runname//'_meanhdot_regions.dat' 
    133     filout    = TRIM(DIRNAMEOUT)//'time-series/'//TRIM(filout) 
     133    filout    = TRIM(DIRNAMEOUT)//TRIM(filout) 
    134134    open(nhdot,file=filout) 
    135135     
    136136    filout   = runname//'_sigmahdot_regions.dat' 
    137     filout    = TRIM(DIRNAMEOUT)//'time-series/'//TRIM(filout) 
     137    filout    = TRIM(DIRNAMEOUT)//TRIM(filout) 
    138138    open(nsigma_hdot,file=filout) 
    139139     
    140140    filout   = runname//'_nbpoints_regions.dat' 
    141     filout    = TRIM(DIRNAMEOUT)//'time-series/'//TRIM(filout) 
     141    filout    = TRIM(DIRNAMEOUT)//TRIM(filout) 
    142142    open(npoints,file=filout) 
    143143     

  • trunk/SOURCES/Fichiers-parametres/A-LBq15_LISTE-VAR-NETCDF.dat

    r4 r68  
    8282~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ fin du header commentaire                                                                    
    8383============================================ classe 1  
    84 1       100     4           ! class 1 nombre de snapmax 100 4 type de noeud  
     841       220     4           ! class 1 nombre de snapmax 100 4 type de noeud  
    8585'o'     '>'       '^'       'x'                                         
    8686----------------------------------------------------------- 
    … …  
    114114Bm               
    11511510 
    116 1       0       -1                               
     1161       1       1                                
    117117----------------------------------------------------------- 
    118118Acc              
    11911911       
    120 0       4       0                                
     1201       1       1                                
    121121----------------------------------------------------------- 
    122122Abl              
    12312312 
    124 1       0       -1               
     1241       1       1                
    125125----------------------------------------------------------- 
    126126Calv             
    12712713 
    128 0       1       -1                               
     1280       1       1                                
    129129----------------------------------------------------------- 
    130130dHdt             
    … …  
    134134Tann             
    13513518 
    136 1       0       -1                       
     1361       1       1                        
    137137----------------------------------------------------------- 
    138138Tjja             
    13913919 
    140 1       0       -1                       
     1401       1       1                        
    141141----------------------------------------------------------- 
    142142Tb               
    … …  
    1441441       1       1                        
    145145----------------------------------------------------------- 
     146ghf 
     14723 
     1481       1      -1 
     149----------------------------------------------------------- 
    146150phid             
    14715124       
    148 1       0       -1                               
     1521       1       1                                
    149153----------------------------------------------------------- 
    150154Bmelt            
    15115525 
    152 1       0       -1                               
     1561       1       1                                
    153157----------------------------------------------------------- 
    154158Uxbar_maj                
    15515930 
    156 0       1       1                                
     1601       1       1                                
    157161----------------------------------------------------------- 
    158162Uybar_maj                
    15916331 
    160 0       1       1                        
     1641       1       1                        
    161165----------------------------------------------------------- 
    162166Umag             
    … …  
    1681721       1       1                                
    169173----------------------------------------------------------- 
    170  
    171  
     174bm_ref_t 
     175197 
     1761       1       1 
     177----------------------------------------------------------- 
     178grad_bm 
     179198 
     1801       1       1 
     181----------------------------------------------------------- 
     182bm_time 
     183199 
     1841       1       1 
     185----------------------------------------------------------- 
    172186============================================ classe 2  
    173 2       100     3  ! class 2 nombre de snapmax 100  3 type de noeud a sortir 
     1872       220     3  ! class 2 nombre de snapmax 100  3 type de noeud a sortir 
    174188'>'     '^'     'o'      
    175189----------------------------------------------------------- 
    … …  
    204218frtmx            
    20521940 
    206 0       0       -1                               
     2201       1       1                                
    207221----------------------------------------------------------- 
    208222frtmy            ! sur noeud mineur      
    20922341 
    210 0       0       -1                               
     2241       1       1                                
    211225----------------------------------------------------------- 
    212226tobmx            ! sur noeud mineur      
    21322742 
    214 0       1       1                                        
     2281       1       1                                        
    215229----------------------------------------------------------- 
    216230tobmy            
    21723143 
    218 0       1       1                                        
     2321       1       1                                        
    219233----------------------------------------------------------- 
    220234toshe            
    … …  
    224238epsxx           !'o'     
    22523945 
    226 1       0       -1                                       
     2401       3       -1                                       
    227241----------------------------------------------------------- 
    228242epsyy           !'o'     
    22924346 
    230 1       0       -1                                       
     2441       3       -1                                       
    231245----------------------------------------------------------- 
    232246epsxy           !'x'     
    23324747 
    234 1       0       1                                        
     2481       3       1                                        
    235249----------------------------------------------------------- 
    236250eps             'o'      
    23725148 
    238 1       0       1 
    239 ----------------------------------------------------------- 
    240 Abar            'o'      
    241 49 
    242 1       1       1                                        
     2521       3       1                                        
    243253----------------------------------------------------------- 
    244254pvi              ! 'o'   
    … …  
    264274Hwat             
    26527560 
    266 0       1       1                                        
     2761       1       1                                        
    267277----------------------------------------------------------- 
    268278Hdw              
    … …  
    292302Nefmx            
    29330368 
    294 0       1       1                                        
     3041       1       1                                        
    295305----------------------------------------------------------- 
    296306Nefmy            
    29730769 
    298 0       2       1                                        
     3081       2       1                                        
    299309----------------------------------------------------------- 
    300310posx             
    … …  
    316326H_uw_x 
    317327192 
    318 0       1       1 
     3281       1       1 
    319329----------------------------------------------------------- 
    320330H_uw_y 
    321331193 
    322 0       1       1 
    323 ----------------------------------------------------------- 
    324 time_float 
    325 194 
    3263321       1       1 
    327333----------------------------------------------------------- 

  • trunk/SOURCES/Fichiers-parametres/A-LBq15_TEMPS-NETCDF.dat

    r4 r68  
    1515----------------------------------------------------------------------- 
    16164       ndtsortie      lecture de dtncdf de sortie 
    17 10. 
     175000. 
    181810000. 
    191920000. 
    20201.e10 
    2121------------------------------------------------------------------------------------------- 
    22 24      npredeft        lecture de predef_tsort 
    23 1990 
    24 1991 
    25 1992 
    26 1993 
    27 1994 
    28 1995 
    29 1996 
    30 1997 
    31 1998 
    32 1999 
     229       npredeft        lecture de predef_tsort 
     23-21000 
     2410 
     25100 
     26200 
     27500 
     281000 
    33292000 
    34 2001 
    35 2002 
    36 2003 
    37 2004 
    38 2005 
    39 2006 
    40 2007 
    41 2008 
    42 2008 
    43 2010 
    44 2011 
    45 2012 
    46 2015 
    47 2 
    48 6 
    49 7 
    50 8 
    51 9 
    52 10. 
    53 11 
    54 12 
    55 13 
    56 14 
    57 16 
    58 17 
    59 18 
    60 19 
    61 15. 
    62 20. 
    63 30. 
    64 40. 
    65 50. 
    66 150 
    67 20. 
    68 100. 
    69 500. 
    70 5. 
    71 10. 
    72 ======= 
    73 20. 
    74 50. 
    75 100. 
    76 200. 
    77 500. 
    78 1000. 
    79 10000. 
    80 20000. 
    81 70. 
    82 80. 
    83 90. 
    84 1000 
    85 10000 
    86 50000 
    87 25 
    88 35 
    89 66 
    90 100 
    91 150 
    92 200 
    93 250 
    94 300 
    95 350 
    96 400 
    97 450 
    98 500 
    99 300 
    100 400 
    101 3000 
    102 4000 
    103305000 
    104 5010 
    105 5020 
    106 5050 
    107 5100 
    108 5200 
    109 5300 
    110 5400 
    111 5500 
    112 5600 
    113 5700 
    114 5800 
    115 5900 
    116 6000 
    117 6500 
    118317000 
    119 7500 
    120 8000 
    121  
    12232------------------------------------------------------------------------------------------- 
    123  

  • trunk/SOURCES/GrIce2sea_files/climat_GrIce2sea_years_perturb_mod.f90

    r67 r68  
    421421        end if 
    422422         
    423         coefbmshelf=(1.+tafor/10.) 
     423        ! coefmshelf est un coefficient qui fait varier bmgrz et bmshelf en fonction de tafor 
     424        coefbmshelf=(1.+tafor/10.)       ! coefbmshelf=0 pour tafor=-10deg 
    424425        coefbmshelf=max(coefbmshelf,0.)   
    425426        coefbmshelf=min(coefbmshelf,2.) 

  • trunk/SOURCES/Makefile.grisli.inc

    r65 r68  
    172172 
    173173 
    174 Liste_ANT15-LBq = lect-Ant_clim_Acc-T_gen_dat.o output_anta_mod-0.4.o \ 
    175         dragging-vit_bil_LBq_gen_mod.o dragging_LGM_mod.o dragging_plastic_LGM_mod.o \ 
    176         dragging_prescr_beta_mod.o dragging_prescr_beta_buoyency_mod.o dragging_prescr_beta_nolin_mod.o \ 
    177         fake-routines-ant_mod.o beta_iter_vitbil_mod.o \ 
    178         lect-Ant_gen2010_dat.o module_choix_antar15_LBq.o \ 
    179         massb-ant_perturb_Tparam.o track_ant40_mod.o  
    180  
    181  
     174#Liste_ANT15-LBq = lect-Ant_clim_Acc-T_gen_dat.o output_anta_mod-0.4.o \ 
     175#       dragging-vit_bil_LBq_gen_mod.o dragging_LGM_mod.o dragging_plastic_LGM_mod.o \ 
     176#       dragging_prescr_beta_mod.o dragging_prescr_beta_buoyency_mod.o dragging_prescr_beta_nolin_mod.o \ 
     177#       fake-routines-ant_mod.o beta_iter_vitbil_mod.o \ 
     178#       lect-Ant_gen2010_dat.o module_choix_antar15_LBq.o \ 
     179#       massb-ant_perturb_Tparam.o track_ant40_mod.o  
     180 
     181Liste_ANT15-LBq = output_anta_mod-0.4.o \ 
     182                lect-Ant_gen2010_dat.o \ 
     183                lect-anteis_mod.o \ 
     184                bmelt-ant-regions_mod.o \ 
     185                fake-routines-ant_mod.o \ 
     186                module_choix_antar15_LBq.o \ 
     187                track_ant40_mod.o \ 
    182188 
    183189Liste_hudson = sedim_declar_hudson_mod.o climat-hudson_mod.o \ 
    … …  
    361367        $(FT) $(NETCDFINCLUDE) -c Ant40_files/$*.f90 
    362368         
     369# ANT15-LBq_files 
     370%.o: ANT15-LBq_files/%.f90 
     371        $(FT) $(NETCDFINCLUDE) -c ANT15-LBq_files/$*.f90 
     372         
    363373# Greeneem_files/Greeneem15_files 
    364374%.o: Greeneem_files/Greeneem15_files/%.f90 
    … …  
    410420#--------------------------------------- 
    411421 
    412 LBqAntar15 : $(Dim_ANT15-LBq) $(mod_dim_communs)  \ 
    413         $(Proto_recul)  \ 
    414         $(mod_communs) \ 
    415         $(Proto_recul)  \ 
    416         $(mod_clim_perturb)  \ 
    417         $(mod_tracers) \ 
     422Ant-15 : $(Dim_ANT15-LBq) $(mod_dim_communs) \ 
     423        $(toy_recul) \ 
     424        $(mod_communs) \ 
     425        $(mod_clim_tof)  \ 
     426        $(mod_no_tracers) \ 
    418427        $(mod_ell) $(Liste_ANT15-LBq) \ 
    419428        $(diagnoshelf) \ 
    420429        $(Liste_Netcdf) \ 
    421         $(routines_communes) steps_time_loop.o $(routine_elliptiques)  
    422  
    423         $(LK) -o ../bin/LBqAntar-15  $(Dim_ANT15-LBq) $(mod_dim_communs) \ 
    424         $(Proto_recul)  \ 
    425         $(mod_communs) \ 
    426         $(mod_clim_perturb)  \ 
    427         $(mod_tracers) \ 
    428         $(mod_ell) \ 
    429         $(Liste_ANT15-LBq) \ 
    430         $(diagnoshelf) $(Liste_Netcdf) \ 
    431         $(routines_communes) steps_time_loop.o $(routine_elliptiques) $(NCDF_LIB) $(MKL_LIB) 
     430        $(routines_communes) steps_time_loop.o \ 
     431        $(routine_elliptiques) \ 
     432        $(Liste_BLAS) 
     433 
     434        $(LK) -o ../bin/Ant-15 \ 
     435        $(Dim_ANT15-LBq) $(mod_dim_communs) \ 
     436        $(toy_recul)  \ 
     437        $(mod_communs) \ 
     438        $(mod_clim_tof)  \ 
     439        $(mod_no_tracers) \ 
     440        $(mod_ell) $(Liste_ANT15-LBq) \ 
     441        $(diagnoshelf) \ 
     442        $(Liste_Netcdf) \ 
     443        $(routines_communes) steps_time_loop.o \ 
     444        $(routine_elliptiques) $(NCDF_LIB) $(MKL_LIB) $(Liste_BLAS) 
    432445 
    433446Recul_ice2sea : $(Dim_ANT15-LBq) $(mod_dim_communs)  \ 

  • trunk/SOURCES/diffusiv-polyn-0.6.f90

    r65 r68  
    6666call slope_surf 
    6767 
    68 !call sliding     ! au sens vitesse de glissement, afq, commented 21 apr 16 
     68call sliding     ! au sens vitesse de glissement 
    6969 
    7070!  le glissement est maintenant dans un module a part choisi dans le module choix 

  • trunk/SOURCES/initial-0.3.f90

    r65 r68  
    120120  call init_diagno     ! initialisation de la resolution equation elliptique vitesses  
    121121 
    122   !call init_sliding    ! initialisation du glissement, afq, commented 21 apr 16 
     122  call init_sliding    ! initialisation du glissement 
    123123 
    124124  call init_spinup     ! initialisation du spinup 
Note: See TracChangeset for help on using the changeset viewer.