Changeset 168


Ignore:
Timestamp:
12/13/17 18:13:38 (6 years ago)
Author:
dumas
Message:

For compatibility update dragging modules

Location:
trunk/SOURCES
Files:
1 added
9 edited

Legend:

Unmodified
Added
Removed

  • trunk/SOURCES/Draggings_modules/dragging_prescr_beta_mod.f90

    r70 r168  
    1717  use module3d_phy 
    1818  use interface_input 
     19  use fake_beta_iter_vitbil_mod 
     20   
    1921  implicit none 
    2022  real, dimension(nx,ny) :: Vcol_x           !< uniquement pour compatibilite 
    … …  
    5860    if (itracebug.eq.1)  call tracebug(' Prescr_beta       subroutine init_dragging') 
    5961 
    60     iter_beta=0 
     62    inv_beta=0 
    6163 
    6264    ! lecture des parametres du run                     

  • trunk/SOURCES/Draggings_modules/dragging_prescr_beta_nolin_mod.f90

    r93 r168  
    2121  use module3d_phy 
    2222  use interface_input 
     23  use fake_beta_iter_vitbil_mod 
    2324  implicit none 
    2425  real, dimension(nx,ny) :: Vcol_x           !< uniquement pour compatibilite 
    … …  
    162163    end if 
    163164!--------------------------------------- fin du bloc --------------------------------------------------------------------- 
    164     iter_beta=0 
     165    inv_beta=0 
    165166    exp_alpha = 1/alpha_drag - 1. 
    166167 

  • trunk/SOURCES/dragging_hwat-contigu_mod.f90

    r66 r168  
    2020 
    2121use module3d_phy 
     22use fake_beta_iter_vitbil_mod 
    2223 
    2324implicit none 
    … …  
    7374write(num_rep_42,*) 
    7475 
     76inv_beta=0 
    7577tostick=1.e5   ! valeurs pour les points non flgzmx 
    7678 

  • trunk/SOURCES/dragging_hwat_contmaj_mod.f90

    r66 r168  
    2525use module3d_phy 
    2626use param_phy_mod 
     27use fake_beta_iter_vitbil_mod 
    2728 
    2829implicit none 
    … …  
    9192write(num_rep_42,*) 
    9293 
     94inv_beta=0 
    9395tostick=1.e5   ! valeurs pour les points non flgzmx 
    9496tob_ile=betamax/2. 
    … …  
    113115endwhere 
    114116 
    115     
    116       return 
    117       end subroutine init_dragging 
     117return 
     118end subroutine init_dragging 
    118119!________________________________________________________________________________ 
    119120 

  • trunk/SOURCES/dragging_hwat_sedim_mod.f90

    r66 r168  
    77 
    88use module3d_phy 
     9use fake_beta_iter_vitbil_mod 
    910 
    1011implicit none 
    … …  
    6667if (itracebug.eq.1) write(num_tracebug,*)' dragging avec hwatermax' 
    6768 
    68 iter_beta=0 
     69inv_beta=0 
    6970 
    7071! formats pour les ecritures dans 42 

  • trunk/SOURCES/dragging_hwatermax_0.2_mod.f90

    r70 r168  
    1515  ! Defini les zones de stream avec un critere sur la hauteur d'eau 
    1616 
    17   USE module3D_phy 
    18  
     17  use module3D_phy 
     18  use fake_beta_iter_vitbil_mod 
    1919 
    2020 
    … …  
    5959    write(num_rep_42,*) 
    6060 
     61    inv_beta=0 
    6162    tostick=1.e5   ! valeurs pour les points non flgzmx 
    6263 

  • trunk/SOURCES/dragging_neff_slope_mod.f90

    r84 r168  
    2727use interface_input 
    2828use io_netcdf_grisli 
     29use fake_beta_iter_vitbil_mod 
    2930 
    3031implicit none 
    … …  
    121122write(num_rep_42,*) 
    122123 
    123 !tostick=1.e5   ! valeurs pour les points non flgzmx 
     124inv_beta=0 
    124125tob_ile=betamax/2. 
    125126moteurmax=toblim 

  • trunk/SOURCES/dragging_param_beta_mod.f90

    r161 r168  
    2727use interface_input 
    2828use io_netcdf_grisli 
     29use fake_beta_iter_vitbil_mod 
    2930 
    3031implicit none 
    … …  
    8586write(num_rep_42,428) '! Slope & expo of beta = - slope x Neff ** expo' 
    8687 
     88inv_beta=0 
    8789!------------------------------------------------------------------- 
    8890! masque stream 
    89       mstream_mx(:,:)=1 
    90       mstream_my(:,:)=1 
     91mstream_mx(:,:)=1 
     92mstream_my(:,:)=1 
    9193 
    9294 
    9395! coefficient permettant de modifier le basal drag. 
    94       drag_mx(:,:)=1. 
    95       drag_my(:,:)=1. 
     96drag_mx(:,:)=1. 
     97drag_my(:,:)=1. 
    9698       
    97       betamax_2d(:,:) = betamax 
     99betamax_2d(:,:) = betamax 
    98100    
    99       return 
    100       end subroutine init_dragging 
     101return 
     102end subroutine init_dragging 
    101103!________________________________________________________________________________ 
    102104 

  • trunk/SOURCES/dragging_param_beta_nolin_mod.f90

    r161 r168  
    2727use interface_input 
    2828use io_netcdf_grisli 
     29use fake_beta_iter_vitbil_mod 
    2930 
    3031implicit none 
    … …  
    8788write(num_rep_42,428) '! Slope & expo of beta = (- slope x Neff ** expo ) / Uslmag' 
    8889 
     90inv_beta=0 
    8991!------------------------------------------------------------------- 
    9092! masque stream 
    91       mstream_mx(:,:)=1 
    92       mstream_my(:,:)=1 
     93mstream_mx(:,:)=1 
     94mstream_my(:,:)=1 
    9395 
    9496 
    9597! coefficient permettant de modifier le basal drag. 
    96       drag_mx(:,:)=1. 
    97       drag_my(:,:)=1. 
     98drag_mx(:,:)=1. 
     99drag_my(:,:)=1. 
    98100       
    99       betamax_2d(:,:) = betamax 
     101betamax_2d(:,:) = betamax 
    100102    
    101       return 
    102       end subroutine init_dragging 
     103return 
     104end subroutine init_dragging 
    103105!________________________________________________________________________________ 
    104106 
Note: See TracChangeset for help on using the changeset viewer.