Changeset 381


Ignore:
Timestamp:
03/21/23 18:46:39 (14 months ago)
Author:
dumas
Message:

use only in subroutine bmelt_seuil_prof

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/GRISLIv3/SOURCES/bmelt-seuil-profondeur_mod.f90

    r224 r381  
    2121  ! A choisir dans le module_choix 
    2222 
    23   use module3d_phy 
     23  use module3d_phy, only:nx,ny,num_param,bsoc0,num_rep_42,debug_3D,coefbmshelf,flot,bmelt,& 
     24       fbm,igrdline,ibmelt_inv,corrbmelt,hdot,i_Hp 
     25  use runparam, only: itracebug 
    2426 
    2527 
    … …  
    101103    ! coefbmshelf a ete calcule par forclim et permet de faire varier en fonction du climat 
    102104 
     105    integer :: i,j 
    103106    integer :: ngr           ! nombre de voisins flottants 
    104107    real    :: coef_talus    ! pour ne pas changer la fusion au dessus de l'ocean profond 
Note: See TracChangeset for help on using the changeset viewer.