Changeset 446 for branches


Ignore:
Timestamp:
10/12/23 11:38:47 (8 months ago)
Author:
aquiquet
Message:

Cleaning branch: use only statement in module3D

Location:
branches/GRISLIv3/SOURCES
Files:
66 edited

Legend:

Unmodified
Added
Removed

  • branches/GRISLIv3/SOURCES/3D-physique-gen_mod.f90

    r434 r446  
    1818  ! declaration des variables 
    1919  ! implicit none 
    20   use geography   ! indirectement donne acces au nx,ny, appropries 
    21   use runparam    ! donne acces a runname, dirout, tbegin,tend 
    22   use param_phy_mod 
     20  use geography, only: nx,ny,nz,nzm   ! indirectement donne acces au nx,ny, appropries 
    2321 
    2422  implicit none 

  • branches/GRISLIv3/SOURCES/Ant16_files/bmelt-ant-regions-initmip_mod.f90

    r225 r446  
    1515 
    1616  use module3D_phy 
     17  use geography, only: dirnameinp 
    1718  use netcdf 
    1819  use io_netcdf_grisli 

  • branches/GRISLIv3/SOURCES/Ant16_files/bmelt-seuil-profondeur_initmip_inv_mod.f90

    r256 r446  
    2222  ! A choisir dans le module_choix 
    2323 
    24   use module3d_phy 
     24  use module3d_phy, only: nx,ny,Bsoc0,num_param,num_rep_42,debug_3d,ibmelt_inv,bmelt, & 
     25                   time,corrbmelt,flot,h,fbm,i_hp,igrdline,hdot,coefbmshelf 
     26  use geography, only: dirnameinp 
     27  use runparam, only: itracebug,tend 
    2528  use netcdf 
    2629  use io_netcdf_grisli 
    … …  
    175178    real,dimension(nb_reg) :: bmelt_regions_time, bmgrz_regions_time ! Pour le caclul du bemlt/bmgrz par zone 
    176179    integer :: nregion ! pour calcul du bmelt sur toutes les regions 
     180 
     181    integer :: i,j 
    177182 
    178183    if (itracebug.eq.1)  call tracebug('entree dans bmeltshelf de bmelt_seuil_prof') 

  • branches/GRISLIv3/SOURCES/Ant16_files/climat_InitMIP_years_perturb_mod.f90

    r290 r446  
    1616 
    1717 
    18 use module3d_phy,only: nx,ny,S,S0,H,Bsoc,acc,abl,BM,Tann,Tjuly,Ts,time,dt,num_param,num_rep_42,num_forc,dirforcage,dirnameinp,tafor,time,sealevel,sealevel_2d,coefbmshelf 
     18use module3d_phy,only: S,S0,H,Bsoc,acc,abl,BM,Tann,Tjuly,Ts,time,dt,num_param,num_rep_42,num_forc,tafor,time,sealevel,sealevel_2d,coefbmshelf 
     19use geography, only: nx,ny,dirnameinp,dirforcage 
    1920use netcdf 
    2021use io_netcdf_grisli 

  • branches/GRISLIv3/SOURCES/Ant40_files/bmelt-ant-regions-oce_mod.f90

    r180 r446  
    1515 
    1616       use module3D_phy 
     17       use geography, only: dirnameinp 
    1718       use interface_input 
    1819       use io_netcdf_grisli 

  • branches/GRISLIv3/SOURCES/Ant40_files/bmelt-ant-regions_mod.f90

    r70 r446  
    1515 
    1616  use module3D_phy 
     17  use geography, only: dirnameinp 
    1718  use netcdf 
    1819  use io_netcdf_grisli 

  • branches/GRISLIv3/SOURCES/Ant40_files/fake-routines-ant_mod.f90

    r4 r446  
    1414 
    1515use module3d_phy 
     16use runparam, only: itracebug 
    1617 
    1718implicit none 

  • branches/GRISLIv3/SOURCES/Ant40_files/lect-anteis_mod.f90

    r237 r446  
    1313module lect_topo_anteis 
    1414 
    15   use module3D_phy 
     15  use module3D_phy, only: num_rep_42,num_param,nxx,nyy,bsoc0,mk0,s0,h0,bsoc,s,h,flot,ghf,sealevel_2d, &  
     16                          xcc,ycc,xlong,ylat,secyear 
     17  use runparam, only: xmin,ymin,xmax,ymax 
     18  use geography, only: nx,ny,dirnameinp 
     19  use param_phy_mod, only: ro,row 
    1620  use interface_input 
    1721  use io_netcdf_grisli 
    … …  
    3640  subroutine input_topo 
    3741 
     42    integer :: i,j,k 
    3843    integer :: ios 
    3944    ! pour les lectures ncdf 

  • branches/GRISLIv3/SOURCES/Ant40_files/massb-ant_perturb_Tparam.f90

    r27 r446  
    2525 
    2626 
    27 use module3D_phy,only:nx,ny,tann,tjuly,ta0,precip,acc,s,s0,tafor,retroac,rappact 
     27use module3D_phy,only: tann,tjuly,ta0,precip,acc,s,s0,tafor,retroac,rappact 
     28use geography, only: nx,ny 
    2829!use climat_perturb_mod 
    2930implicit none 

  • branches/GRISLIv3/SOURCES/Ant40_files/output_anta40_mod-0.4.f90

    r437 r446  
    1313module  output_antarcti_mod 
    1414 
    15 USE module3D_phy 
     15use module3D_phy,only: ndisp,xlong,ylat,vol,np,hmax,b,s,acc,h,t,tbdot,ux,uy,uzk,uzsdot, & 
     16              hdot,bdot,hmean,num_ritz,tafor,sealevel,ts 
     17use geography, only: nx,ny,nz,geoplace,dirnameinp 
     18use runparam, only: dirnameout,runname 
    1619use bilan_eau_mod 
    1720use netcdf 
    … …  
    105108integer :: nloop ! nbr de tour dans la boucle while (evite boucle folle) 
    106109real :: dist_lonlat, dist_lonlat_new, distance ! distance to lon lat ice core site 
    107  
     110integer :: i,j,k,l 
    108111 
    109112 
    … …  
    386389!------------------ 
    387390real ::  smax 
     391integer :: i,j,k,l 
    388392 
    389393      vol=0.  

  • branches/GRISLIv3/SOURCES/Draggings_modules/beta_iter_vitbil_mod.f90

    r404 r446  
    6666  use io_netcdf_grisli,only: read_ncdf_var 
    6767  use geography, only: dirnameinp 
    68   use module3D_phy, only: num_param,num_rep_42,time,tbegin,debug_3d 
     68  use module3D_phy, only: num_param,num_rep_42,time,debug_3d 
     69  use runparam, only: tbegin 
    6970 
    7071  implicit none 

  • branches/GRISLIv3/SOURCES/Draggings_modules/dragging_beta_iter_vitbil_mod.f90

    r404 r446  
    164164  subroutine dragging   ! defini la localisation des streams et le frottement basal 
    165165 
    166     use module3D_phy, only: time,dtmin,itracebug,betamx,betamy,drag_mx,drag_my 
     166    use module3D_phy, only: time,dtmin,betamx,betamy,drag_mx,drag_my 
     167    use runparam, only: itracebug 
    167168    use beta_iter_vitbil_mod, only: time_iter,time_iter_end,time_reiter 
    168169 
    … …  
    203204    use geography, only: nx,ny 
    204205    use module3D_phy, only: gzmx,gzmy,fleuvemx,fleuvemy,flgzmx,flgzmy,flot,flotmx,flotmy, & 
    205                             betamx,betamy,itracebug,num_tracebug,ibase 
     206                            betamx,betamy,ibase 
     207    use runparam, only: itracebug,num_tracebug 
    206208    use beta_iter_vitbil_mod, only: beta_limgz,drag_centre 
    207209 

  • branches/GRISLIv3/SOURCES/GrIce2sea_files/climat_GrIce2sea_years_mod.f90

    r180 r446  
    1616 
    1717 
    18 use module3d_phy,only: nx,ny,S,S0,H,Bsoc,acc,abl,BM,Tann,Tjuly,Ts,time,dt,num_param,num_rep_42,dirnameinp,coefbmshelf 
     18use module3d_phy,only: S,S0,H,Bsoc,acc,abl,BM,Tann,Tjuly,Ts,time,dt,num_param,num_rep_42,coefbmshelf 
     19use geography, only: nx,ny,dirnameinp 
    1920!use lect_climref_Ice2sea 
    2021use netcdf 

  • branches/GRISLIv3/SOURCES/GrIce2sea_files/climat_GrIce2sea_years_perturb_mod.f90

    r237 r446  
    1616 
    1717 
    18 use module3d_phy,only: nx,ny,S,S0,H,Bsoc,acc,abl,BM,Tann,Tjuly,Ts,time,dt,num_param,num_rep_42,num_forc,dirforcage,dirnameinp,tafor,time,sealevel,sealevel_2d,coefbmshelf 
     18use module3d_phy,only: S,S0,H,Bsoc,acc,abl,BM,Tann,Tjuly,Ts,time,dt,num_param,num_rep_42,num_forc,tafor,time,sealevel,sealevel_2d,coefbmshelf 
     19use geography, only: nx,ny,dirnameinp,dirforcage 
    1920!use lect_climref_Ice2sea 
    2021use netcdf 

  • branches/GRISLIv3/SOURCES/Hemin40_files/fake-routines-hemin40_mod.f90

    r9 r446  
    1616 
    1717use module3d_phy 
     18use runparam, only: itracebug 
     19 
    1820implicit none 
    1921 

  • branches/GRISLIv3/SOURCES/Hemin40_files/lect-hemin40_mod.f90

    r284 r446  
    22 
    33  use module3D_phy 
     4  use runparam, only: xmin,xmax,ymin,ymax 
     5  use geography, only: dirnameinp 
    46  use interface_input 
    57  use io_netcdf_grisli 

  • branches/GRISLIv3/SOURCES/New-remplimat/diagno-L2_mod.f90

    r444 r446  
    22module diagno_mod                   ! nom pendant les tests 
    33 !$ USE OMP_LIB 
    4 use module3D_phy,only: nx,ny,dx 
     4use geography,only: nx,ny,dx,geoplace 
    55      
    66implicit none 
    … …  
    4949subroutine init_diagno 
    5050 
    51 use module3D_phy,only: num_rep_42,num_param,geoplace,pvimin 
     51use module3D_phy,only: num_rep_42,num_param,pvimin 
     52use geography, only: geoplace 
    5253use deformation_mod_2lois,only: sf ! afq - 07/2023 - not clean since it is in module_choix 
    5354 
    … …  
    109110subroutine diagnoshelf !      Resolution numerique des equations diagnostiques 
    110111 
    111   use module3D_phy, only: itracebug,niter_nolin,taushelf,flot,h,pvi,coef_sflot,rog, &  
    112                           gr_line_schoof,geoplace,uxbar,uybar,pvimin,debug_3D,V_limit, &  
     112  use module3D_phy, only: niter_nolin,taushelf,flot,h,pvi, &  
     113                          gr_line_schoof,uxbar,uybar,pvimin,debug_3D,V_limit, &  
    113114                          imx_diag,imy_diag,tobmx,tobmy,neffmx,neffmy,gr_line, schoof, &  
    114115                          betamx,betamy,flgzmx,flgzmy,uxflgz,uyflgz,taub  
     116  use runparam, only: itracebug 
     117  use geography, only: geoplace 
     118  use param_phy_mod, only: rog, coef_sflot 
    115119  use furst_schoof_mod, only: back_force_x,back_force_y,gr_select,frot_coef,interpol_glflux  
    116120  use module_choix, only: btt,dragging,mstream_dragging  ! afq - 03/2023 - not clean  
    … …  
    374378subroutine calc_pvi 
    375379 
    376 use module3d_phy, only: nx,ny,nz,itracebug,pvi,pvimin,abar,flot,gzmx,gzmy, &  
    377                         ilemx,ilemy,eps,taushelf,h,ramollo,debug_3d,pvm  
     380use module3d_phy, only: pvi,pvimin,abar,flot,gzmx,gzmy, &  
     381                        ilemx,ilemy,eps,taushelf,h,ramollo,debug_3d,pvm 
     382use runparam, only: itracebug 
     383use geography, only: nx,ny,nz 
    378384use module_choix, only: btt,visc  ! afq - 03/2023 - not clean  
    379385 
    … …  
    694700subroutine mismip_boundary_cond 
    695701 
    696 use module3d_phy, only: itracebug,imx_diag,imy_diag,uxbar,uybar  
     702use module3d_phy, only: imx_diag,imy_diag,uxbar,uybar 
     703use runparam, only: itracebug 
    697704 
    698705implicit none 

  • branches/GRISLIv3/SOURCES/New-remplimat/eq_ellipt_sgbsv_mod-0.2.f90

    r401 r446  
    99! declaration des variables 
    1010!$ USE OMP_LIB 
    11 use module3D_phy,    only: nlmin 
     11use geography,    only: nlmin 
    1212use remplimat_declar,only: nflmax 
    1313 
    … …  
    516516! donne quelques infos en cas d'erreur sgbsv 
    517517 
    518 use module3D_phy,     only: nx,ny 
     518use geography,     only: nx,ny 
    519519use remplimat_declar, only: ifail_sgbsv,pos_ligu,pos_ligv,tu,tv,ligu_l2,ligv_l2,il,jl, & 
    520520                            ok_umat,ok_vmat,su,sv 

  • branches/GRISLIv3/SOURCES/New-remplimat/remplimat-shelves-tabTu.f90

    r401 r446  
    4242 
    4343!$ USE OMP_LIB 
    44 use module3d_phy, only: dx,dy,debug_3D,nlmin,itracebug,num_tracebug,hmx,hmy,pvi,  & 
     44use module3d_phy, only: debug_3D,hmx,hmy,pvi,  & 
    4545                        flgzmx,flgzmy,frotmx,frotmy,betamx,betamy,betamax,betamax_2d, & 
    4646                        sdx,sdy,h,b,pvimin,sealevel_2d,flotmx,flotmy,drag_mx,drag_my, & 
    47                         beta_centre,rog,rowg,pvm,nx,ny 
     47                        beta_centre,pvm 
     48use runparam, only: itracebug,num_tracebug 
     49use geography, only: nx,ny,nlmin,dx,dy 
     50use param_phy_mod, only: rog,rowg 
    4851use remplimat_declar, only: tu,tv,su,sv,opposx,opposy,mu,mv,nu,nv,ligu_l2,ligv_l2,    & 
    4952                            ok_umat,ok_vmat,ghost_x,ghost_y,pos_ligu,pos_ligv,il,jl,  & 

  • branches/GRISLIv3/SOURCES/New-remplimat/remplimat_declar_tabTu_mod.f90

    r401 r446  
    99 
    1010 
    11 use module3d_phy, only: nx,ny 
     11use geography, only: nx,ny 
    1212 
    1313implicit none  

  • branches/GRISLIv3/SOURCES/Temperature-routines/Qprod_icetemp.f90

    r388 r446  
    1616subroutine Qprod_ice(Iq1) 
    1717 
    18   use module3D_phy, only: nx,ny,nz,flot,h,epsxx,epsyy,epsxy,sdx,sdy,gzmx,gzmy,flgzmx,flgzmy,fleuvemx,fleuvemy,flotmx,flotmy,  & 
     18  use module3D_phy, only: flot,h,epsxx,epsyy,epsxy,sdx,sdy,gzmx,gzmy,flgzmx,flgzmy,fleuvemx,fleuvemy,flotmx,flotmy,  & 
    1919                            hmx,hmy,ddbx,ddby,tobmx,tobmy,phid,t,tpmp,uxbar,uybar,ux,uy 
     20  use geography, only: nx,ny,nz 
    2021  use module_choix, only: ddx,ddy,visc,btt,glen ! afq - 03/2023 - not clean 
    2122  use Icetemp_declar,only: chaldef_maj,chalx,chaly,chal2_x,chal2_y,chal2_z,chal2_xy,chalgliss_maj,chalglissx,chalglissy,ffx,ffy,cp,ee, & 

  • branches/GRISLIv3/SOURCES/Temperature-routines/icetemp_declar_mod.f90

    r388 r446  
    1313 
    1414  use module_choix, only: btt ! afq - 03/2023 - not clean 
    15   use module3D_phy, only: nx,ny,nn,nz,nzm 
     15  use geography, only: nx,ny,nn,nz,nzm 
    1616  !use Param_phy_mod 
    1717 

  • branches/GRISLIv3/SOURCES/Temperature-routines/icetemp_mod.f90

    r388 r446  
    7070  subroutine icetemp 
    7171    !$ use OMP_LIB  
    72     use module3D_phy, only: itracebug,num_tracebug,nx,ny,nn,nz,uxbar,uybar,dtt,dx,nzm,time,ux,uy,uzr,ts,h,h1,b,b1, & 
     72    use module3D_phy, only: uxbar,uybar,dtt,nzm,time,ux,uy,uzr,ts,h,h1,b,b1, & 
    7373                             ghf,t,tpmp,phid,flot,ibase,debug_3D,tbdot 
     74    use runparam, only: itracebug,num_tracebug 
     75    use geography, only: nx,ny,nn,nz,nzm,dx 
    7476    use Icetemp_declar, only: aa,bb,cc,rr,hh,tdot,chal2_x,chal2_y,chal2_z,chal2_xy,chaldef_maj,chalglissx,chalglissy, & 
    7577                               dee,fracq,nfracq,ee,ctm,ct,cm,cpm,dzm,dttdx,dx11,iq,iadvec_w,iadvec_e,iadvec_s,iadvec_n,  & 

  • branches/GRISLIv3/SOURCES/Temperature-routines/prop_th_icetemp.f90

    r388 r446  
    1616Subroutine Thermal_prop_icetemp 
    1717!$ USE OMP_LIB 
    18   use module3d_phy, only: nx,ny,nz,itracebug,num_tracebug,h,t,tpmp 
     18  use module3d_phy, only: h,t,tpmp 
     19  use runparam, only: itracebug,num_tracebug 
     20  use geography, only: nx,ny,nz 
    1921  use icetemp_declar, only: cp,ct  
    2022  use Param_phy_mod, only: ro 
    … …  
    5759!> 
    5860Subroutine Temp_mer 
    59   use module3D_phy, only: H,flot,nx,ny,i,j,itracebug,num_tracebug 
     61  use module3D_phy, only: H,flot 
     62  use runparam, only: itracebug,num_tracebug 
     63  use geography, only: nx,ny 
    6064  use Icetemp_declar,only: acof1,bcof1,ccof1,tbmer,S0mer 
    6165  use Param_phy_mod, only: ro,row 
    6266 
    6367  Implicit None  
     68 
     69  integer :: i,j 
    6470 
    6571  If (Itracebug.Eq.1) Write(Num_tracebug,*)' Entree Dans Routine Temp_mer_icetemp ' 

  • branches/GRISLIv3/SOURCES/ablation_bord.f90

    r377 r446  
    2020 
    2121 
    22   use module3D_phy, only:nx,ny,ice,ablbord,bmelt,bm,dt,ablbord_dtt 
     22  use module3D_phy, only: ice,ablbord,bmelt,bm,dt,ablbord_dtt 
     23  use geography, only: nx,ny 
    2324  implicit none 
    2425  integer :: ip1,im1,jp1,jm1   ! pour chercher les voisins 

  • branches/GRISLIv3/SOURCES/ablation_mod.f90

    r330 r446  
    8484 
    8585 
    86   USE module3d_phy,only:Tjuly,Tann,Tmois,acc,pdd,TS,Tshelf,precip,BM,Abl,S,dice,cl 
     86  use module3d_phy,only:Tjuly,Tann,Tmois,acc,pdd,TS,Tshelf,precip,BM,Abl,S,cl 
     87  use param_phy_mod,only:dice 
    8788 
    8889  IMPLICIT NONE 

  • branches/GRISLIv3/SOURCES/bilan_eau_mod.f90

    r378 r446  
    2121  use param_phy_mod, only: ro,row 
    2222  use runparam, only: nt 
    23   use module3D_phy, only: nx,ny,H,Bsoc,ice,sealevel_2d,gr_line,uxbar,uybar,flot_marais,dtt,& 
    24        bm,bmelt,dt,dx,dy,isynchro,time,dtmin,ablbord_dtt,water_bilan 
     23  use module3D_phy, only: H,Bsoc,ice,sealevel_2d,gr_line,uxbar,uybar,flot_marais,dtt,& 
     24       bm,bmelt,dt,isynchro,time,dtmin,ablbord_dtt,water_bilan 
     25  use geography, only: nx,ny,dx,dy 
    2526 
    2627  implicit none 

  • branches/GRISLIv3/SOURCES/bilan_flux_output_mod.f90

    r379 r446  
    1414 
    1515 
    16   use module3D_phy, only:nx,ny,H,dt,ice,bm,flot,bmelt,ablbord,calv,gr_line,uxbar,uybar,dx,dy,time,& 
     16  use module3D_phy, only: H,dt,ice,bm,flot,bmelt,ablbord,calv,gr_line,uxbar,uybar,time,& 
    1717       dtmin,secyear,debug_3D 
     18  use geography, only: nx,ny,dx,dy 
    1819   
    1920implicit none 

  • branches/GRISLIv3/SOURCES/bmelt-beckmann-gcm_mod.f90

    r442 r446  
    2121 
    2222  !$ USE OMP_LIB 
    23   use module3D_phy,only: nx,ny,dx,dy,ro,rofresh,row,cl,S,H,sealevel_2d,flot,bmelt,dirnameinp,num_param,num_rep_42,time,dt,debug_3d 
     23  use module3D_phy,only: cl,S,H,sealevel_2d,flot,bmelt,num_param,num_rep_42,time,dt,debug_3d 
     24  use geography, only: nx,ny,dx,dy,dirnameinp 
    2425  ! note: the geom. (nx,ny,dx,dy) come from module_geoplace 
    25   ! note: the densities come from param_phy_mod 
     26  use param_phy_mod,only:ro,rofresh,row 
    2627  use netcdf 
    2728  use io_netcdf_grisli 

  • branches/GRISLIv3/SOURCES/bmelt-grounded.f90

    r380 r446  
    1717subroutine bmelt_grounded 
    1818 
    19   use module3d_phy, only:nx,ny,nz,flot,bmelt,ibase,hwater,T,phid,cl,H,ghf,dtt 
    20   use param_phy_mod, only:ro 
    21   use icetemp_declar, only:ct,dee,cm,dzm,ncond 
     19  use module3d_phy, only: flot,bmelt,ibase,hwater,T,phid,cl,H,ghf,dtt 
     20  use geography, only: nx,ny,nz 
     21  use param_phy_mod, only: ro 
     22  use icetemp_declar, only: ct,dee,cm,dzm,ncond 
    2223  use runparam, only: itracebug 
    2324 

  • branches/GRISLIv3/SOURCES/bmelt-ismip6-param_mod.f90

    r289 r446  
    1717module  bmelt_ismip6_param_mod 
    1818 
    19   use module3D_phy,only: nx,ny,dx,dy,ro,rofresh,row,cl,S,H,sealevel_2d,flot,bmelt,dirnameinp,num_param,num_rep_42,time,dt 
     19  use module3D_phy,only: ro,rofresh,row,cl,S,H,sealevel_2d,flot,bmelt,dirnameinp,num_param,num_rep_42,time,dt 
     20  use geography, only: nx,ny,dx,dy 
    2021  ! note: the geom. (nx,ny,dx,dy) come from module_geoplace 
    2122  ! note: the densities come from param_phy_mod 

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

    r381 r446  
    2121  ! A choisir dans le module_choix 
    2222 
    23   use module3d_phy, only:nx,ny,num_param,bsoc0,num_rep_42,debug_3D,coefbmshelf,flot,bmelt,& 
     23  use module3d_phy, only: num_param,bsoc0,num_rep_42,debug_3D,coefbmshelf,flot,bmelt,& 
    2424       fbm,igrdline,ibmelt_inv,corrbmelt,hdot,i_Hp 
     25  use geography, only: nx,ny 
    2526  use runparam, only: itracebug 
    2627 

  • branches/GRISLIv3/SOURCES/calving_frange.f90

    r383 r446  
    1616module calving_frange 
    1717 
    18   use module3D_phy, only:nx,ny,calv,num_param,num_rep_42,Bsoc0,sealevel_2d,dhdt,bm,coefbmshelf,& 
    19        bmelt,H,epsxx,epsyy,Bsoc,flot,uxbar,uybar,dx,S,B,iceberg,ice 
     18  use module3D_phy, only: calv,num_param,num_rep_42,Bsoc0,sealevel_2d,dhdt,bm,coefbmshelf,& 
     19       bmelt,H,epsxx,epsyy,Bsoc,flot,uxbar,uybar,S,B,iceberg,ice 
     20  use geography, only: nx,ny,dx 
    2021  use param_phy_mod, only: ro,row 
    21   use bilan_eau_mod, only:calv_dtt 
     22  use bilan_eau_mod, only: calv_dtt 
    2223  implicit none 
    2324 

  • branches/GRISLIv3/SOURCES/calving_frange_ISMIP_fracture.f90

    r385 r446  
    1717module calving_frange_fracture 
    1818 
    19   use module3D_phy, only:nx,ny,calv,num_param,num_rep_42,Bsoc0,sealevel_2d,dhdt,bm,coefbmshelf,& 
    20        bmelt,H,epsxx,epsyy,Bsoc,flot,uxbar,uybar,dx,S,B,iceberg,ice,dirnameinp,time 
     19  use module3D_phy, only: calv,num_param,num_rep_42,Bsoc0,sealevel_2d,dhdt,bm,coefbmshelf,& 
     20       bmelt,H,epsxx,epsyy,Bsoc,flot,uxbar,uybar,S,B,iceberg,ice,time 
     21  use geography, only: nx,ny,dx,dirnameinp 
    2122  use param_phy_mod, only: ro,row 
    22   use bilan_eau_mod, only:calv_dtt 
     23  use bilan_eau_mod, only: calv_dtt 
    2324  use netcdf 
    2425  use io_netcdf_grisli 

  • branches/GRISLIv3/SOURCES/calving_frange_ISMIP_glaciers.f90

    r386 r446  
    1717module calving_frange_glaciers 
    1818 
    19   use module3D_phy, only:nx,ny,calv,num_param,num_rep_42,Bsoc0,sealevel_2d,dhdt,bm,coefbmshelf,& 
    20        bmelt,H,epsxx,epsyy,Bsoc,flot,uxbar,uybar,dx,S,B,iceberg,ice,dirnameinp,time,dt 
     19  use module3D_phy, only: calv,num_param,num_rep_42,Bsoc0,sealevel_2d,dhdt,bm,coefbmshelf,& 
     20       bmelt,H,epsxx,epsyy,Bsoc,flot,uxbar,uybar,S,B,iceberg,ice,time,dt 
     21  use geography, only: nx,ny,dx,dirnameinp 
    2122  use param_phy_mod, only: ro,row 
    2223  use bilan_eau_mod, only:calv_dtt 

  • branches/GRISLIv3/SOURCES/calving_frange_abuk.f90

    r384 r446  
    1818module calving_frange_abuk 
    1919 
    20   use module3D_phy, only:nx,ny,calv,num_param,num_rep_42,Bsoc0,sealevel_2d,dhdt,bm,coefbmshelf,& 
    21        bmelt,H,epsxx,epsyy,Bsoc,flot,uxbar,uybar,dx,S,B,ice 
     20  use module3D_phy, only: calv,num_param,num_rep_42,Bsoc0,sealevel_2d,dhdt,bm,coefbmshelf,& 
     21       bmelt,H,epsxx,epsyy,Bsoc,flot,uxbar,uybar,S,B,ice 
     22  use geography, only: nx,ny,dx 
    2223  use param_phy_mod, only: ro,row 
    23   use bilan_eau_mod, only:calv_dtt 
     24  use bilan_eau_mod, only: calv_dtt 
    2425  implicit none 
    2526 

  • branches/GRISLIv3/SOURCES/celltest_tracer.f90

    r387 r446  
    55 
    66      !!  Find the cell origin index for the previous time_tra step 
    7       use module3d_phy, only:nx,ny,nz,e,dx,dy,uxbar,uybar,flotmx,flotmy,ux,uy,gzmx,gzmy 
    8       use tracer_vars, only:xgrid,ygrid 
     7      use module3d_phy, only: e,uxbar,uybar,flotmx,flotmy,ux,uy,gzmx,gzmy 
     8      use geography, only: nx,ny,nz,dx,dy 
     9      use tracer_vars, only: xgrid,ygrid 
     10 
    911      implicit none 
    1012 

  • branches/GRISLIv3/SOURCES/climat-forcage-insolation_mod.f90

    r237 r446  
    1212! C. Dumas 07/2015 
    1313 
    14 use module3D_phy,only:nx,ny,S,H,flot,Tann,Tjuly,Tmois,acc,coefbmshelf,sealevel_2d,ro,num_param,num_rep_42,dirnameinp,time,pi,dx,xlong,ylat,bsoc          
     14use module3D_phy,only: S,H,flot,Tann,Tjuly,Tmois,acc,coefbmshelf,sealevel_2d,num_param,num_rep_42,time,pi,xlong,ylat,bsoc 
     15use geography, only: nx,ny,dirnameinp,dx 
     16use param_phy_mod,only: ro 
    1517use netcdf 
    1618use io_netcdf_grisli 

  • branches/GRISLIv3/SOURCES/climat-forcage-insolation_mod_oneway.f90

    r430 r446  
    1212! C. Dumas 06/2015 
    1313 
    14 USE module3D_phy,only:nx,ny,S,sealevel_2d,Tann,Tjuly,Tmois,acc,coefbmshelf,ro,num_param,num_rep_42,dirnameinp,time 
     14use module3D_phy,only: S,sealevel_2d,Tann,Tjuly,Tmois,acc,coefbmshelf,num_param,num_rep_42,time 
     15use geography, only: nx,ny,dirnameinp 
    1516!use interface_input 
     17use param_phy_mod,only: ro 
    1618use netcdf 
    1719use io_netcdf_grisli 

  • branches/GRISLIv3/SOURCES/climat-perturb_mod-0.4.f90

    r237 r446  
    1313 
    1414 
    15 use module3d_phy,only:nx,ny,S,S0,Tann,Tjuly,precip,acc,Ylat,num_forc,num_param,num_rep_42,dirforcage,dirnameinp,tafor,time,sealevel,sealevel_2d,coefbmshelf 
     15use module3d_phy,only: S,S0,Tann,Tjuly,precip,acc,Ylat,num_forc,num_param,num_rep_42,tafor,time,sealevel,sealevel_2d,coefbmshelf 
     16use geography, only: nx,ny,dirforcage,dirnameinp 
    1617use netcdf 
    1718use io_netcdf_grisli 

  • branches/GRISLIv3/SOURCES/climat_forcage_mod.f90

    r347 r446  
    66! possibilite d'utiliser autant de snapshots que l'on veut (ntr) 
    77! fichiers de forcage, Snapshot et valeurs de lapse rate definis dans fichier param 
    8   use module3d_phy,only:nx,ny,sealevel,sealevel_2d,S,Tmois,Tann,Tjuly,acc,num_forc,num_param,num_rep_42,tafor,coefbmshelf,PI,ro,time,dirforcage,dirnameinp 
     8  use module3d_phy,only: sealevel,sealevel_2d,S,Tmois,Tann,Tjuly,acc,num_forc,num_param,num_rep_42,tafor,coefbmshelf,PI,time 
     9  use geography, only: nx,ny,dirforcage,dirnameinp 
     10  use param_phy_mod,only:ro 
    911  use netcdf 
    1012  use io_netcdf_grisli 

  • branches/GRISLIv3/SOURCES/climat_transient_GCM_mod.f90

    r353 r446  
    77! but not the one included in the climate anomalies forcing fields 
    88   
    9   use module3d_phy,only:nx,ny,sealevel_2d,S,S0,Tmois,Tann,Tjuly,acc,num_forc,num_param,num_rep_42,ro,coefbmshelf,dt,time,dirforcage,dirnameinp 
     9  use module3d_phy,only: sealevel_2d,S,S0,Tmois,Tann,Tjuly,acc,num_forc,num_param,num_rep_42,coefbmshelf,dt,time 
     10  use geography, only: nx,ny,dirforcage,dirnameinp 
     11  use param_phy_mod,only:ro 
    1012  use netcdf 
    1113  use io_netcdf_grisli 

  • branches/GRISLIv3/SOURCES/conserv-mass-adv-diff_sept2009_mod.f90

    r430 r446  
    1818!< 
    1919module equat_adv_diff_2D_vect                          ! Cat nouvelle mouture juin 2009 
    20   use module3D_phy, only:nx,ny,V_limit,num_param,num_rep_42,dx1,dx,mk0,i_Hp,Hp,H,uxbar,uybar,testdiag,& 
     20  use module3D_phy, only: V_limit,num_param,num_rep_42,dx1,mk0,i_Hp,Hp,H,uxbar,uybar,testdiag,& 
    2121       dtmax,dt,dtmin,time,dtt,isynchro,diffmx,diffmy,sdx,sdy,hmx,hmy,flgzmx,flgzmy,flot,tabtest,timemax,& 
    22        marine,dtdx2,dtdx,geoplace,bm,bmelt,igrdline,ibmelt_inv,ice,ablbord,hdot 
    23   use runparam, only:itracebug,num_tracebug,tgrounded 
    24   use reso_adv_diff_2D_vect, only:init_reso_adv_diff_2D,resol_adv_diff_2D_vect 
     22       marine,dtdx2,dtdx,bm,bmelt,igrdline,ibmelt_inv,ice,ablbord,hdot 
     23  use geography, only: nx,ny,dx,geoplace 
     24  use runparam, only: itracebug,num_tracebug,tgrounded 
     25  use reso_adv_diff_2D_vect, only: init_reso_adv_diff_2D,resol_adv_diff_2D_vect 
    2526!  use prescribe_H, only:prescribe_fixed_points,prescribe_paleo_gl_shelf,prescribe_present_H_gl,& 
    2627!       prescribe_present_H_gl_bmelt,init_prescribe_H 

  • branches/GRISLIv3/SOURCES/deformation_mod_2lois.f90

    r397 r446  
    2727module deformation_mod_2lois 
    2828 
    29   use module3d_phy, only:nx,ny,nz!,e,num_param,num_rep_42,rgas,T,iglen,tpmp,H 
     29  use geography, only:nx,ny,nz 
    3030 
    3131  implicit none 

  • branches/GRISLIv3/SOURCES/deformation_mod_2lois_isotherme.f90

    r391 r446  
    2727module deformation_mod_2lois_isoth 
    2828 
    29   use module3d_phy, only:nx,ny,nz,e,num_param,num_rep_42,secyear,iglen 
     29  use geography, only:nx,ny,nz 
    3030  use param_phy_mod, only: rog,ro,row 
    3131   
    … …  
    7979  !> 
    8080  subroutine init_deformation  
     81 
     82    use module3d_phy, only: e,num_param,num_rep_42,secyear,iglen 
     83    use param_phy_mod, only: rog,ro,row 
    8184 
    8285    integer :: k 
    … …  
    161164  subroutine flowlaw (iiglen) 
    162165 
     166    use module3d_phy, only: e 
    163167    implicit none 
    164168    integer :: k 

  • branches/GRISLIv3/SOURCES/diffusiv-polyn-0.6.f90

    r392 r446  
    3535  !     =============================================================== 
    3636  !$ USE OMP_LIB 
    37   use module3D_phy, only:nx,ny,dx,dy,V_limit,iglen,diffmx,diffmy,flgzmx,flgzmy,ubx,uby,& 
     37  use module3D_phy, only: V_limit,iglen,diffmx,diffmy,flgzmx,flgzmy,ubx,uby,& 
    3838       uxflgz,uyflgz,ddbx,ddby,sdx,sdy,flotmx,flotmy,slope2mx,slope2my,hmx,hmy,uxdef,uydef,& 
    3939       uxbar,uybar,H,flot 
     40  use geography, only: nx,ny,dx,dy 
    4041  use runparam, only: itracebug 
    4142  use param_phy_mod, only:rog 

  • branches/GRISLIv3/SOURCES/eaubasale-0.5_mod.f90

    r395 r446  
    1515module eau_basale 
    1616 
    17   use module3d_phy, only:nx,ny 
    18   use param_phy_mod, only: 
     17  use geography, only:nx,ny 
    1918 
    2019  implicit none 
    … …  
    126125  subroutine eaubasale !(pwater)   version correspondant à la thèse de Vincent 
    127126 
    128     use module3d_phy, only:hwater,kond,secyear,flot,sealevel_2D,Bsoc,rofreshg,ibase,S,H,B,bmelt,rofresh,& 
    129          debug_3d,flotmx,flotmy,pgx,pgy,phiwx,phiwy,isynchro,dtt,dx,dy,dt,hdotwater,pwater,hwatermax 
    130     use param_phy_mod, only:rowg,ro,rog 
     127    use module3d_phy, only:hwater,kond,secyear,flot,sealevel_2D,Bsoc,ibase,S,H,B,bmelt,& 
     128         debug_3d,flotmx,flotmy,pgx,pgy,phiwx,phiwy,isynchro,dtt,dt,hdotwater,pwater,hwatermax 
     129    use geography, only:dx,dy 
     130    use param_phy_mod, only:rowg,ro,rog,rofreshg,rofresh 
    131131    use runparam, only:itracebug,nt 
    132132    use relaxation_waterdif_mod, only:relaxation_waterdif 

  • branches/GRISLIv3/SOURCES/flottab2-0.7.f90

    r396 r446  
    1717 
    1818  !$ USE OMP_LIB 
    19   USE module3D_phy, only:nx,ny 
     19  USE geography, only: nx,ny 
    2020 
    2121  implicit none 
    … …  
    631631  subroutine determin_tache 
    632632     
    633     use module3D_phy, only:ice,flot,gzmx,gzmy,S,flgzmx,flgzmy,sealevel,num_tracebug,time,iceberg,& 
     633    use module3D_phy, only:ice,flot,gzmx,gzmy,S,flgzmx,flgzmy,sealevel,time,iceberg,& 
    634634         debug_3D 
     635    use runparam, only: num_tracebug 
    635636     
    636637    !$ USE OMP_LIB 

  • branches/GRISLIv3/SOURCES/furst_schoof_mod.f90

    r397 r446  
    33module furst_schoof_mod 
    44 
    5   use module3d_phy, only:nx,ny 
    6   use deformation_mod_2lois, only: 
     5  use geography, only:nx,ny 
    76 
    87  implicit none 
    … …  
    5049     
    5150    use module3d_phy, only:hmx,hmy,gr_line_schoof,Bsoc,H,sealevel_2d,imx_diag,imy_diag,& 
    52          uxbar,uybar,flot_marais,dx,dy,Abar,betamx,betamy,V_limit,debug_3D 
     51         uxbar,uybar,flot_marais,Abar,betamx,betamy,V_limit,debug_3D 
     52    use geography, only:dx,dy 
    5353    use deformation_mod_2lois, only:glen 
    5454     

  • branches/GRISLIv3/SOURCES/imposed_regions_rsl.f90

    r398 r446  
    1717!  ii- un fichier netcdf qui contient les regions, numerotees en partant de 0. La region 0 n'est pas touchee, niveau eustatique 
    1818 
    19   use module3D_phy, only:nx,ny 
     19  use geography, only:nx,ny 
    2020  use netcdf 
    2121  use io_netcdf_grisli, only:read_ncdf_var 
    … …  
    3939  subroutine input_rsl 
    4040 
    41     use module3D_phy, only:num_param,num_forc,num_rep_42,dirforcage,dirnameinp 
     41    use module3D_phy, only:num_param,num_forc,num_rep_42 
     42    use geography, only: dirforcage,dirnameinp 
    4243    implicit none 
    4344 

  • branches/GRISLIv3/SOURCES/initial-0.3.f90

    r401 r446  
    2222subroutine initial 
    2323 
    24   use module3D_phy, only:time,H,hmx,hmy,T,tpmp,bmelt,geoplace,icompteur,num_rep_42 
     24  use module3D_phy, only:time,H,hmx,hmy,T,tpmp,bmelt,icompteur,num_rep_42 
     25  use geography, only: geoplace 
    2526  use runparam, only: tbegin 
    2627  use module_choix, only:input_topo,init_forclim,input_clim,init_ablation,init_tracer,& 

  • branches/GRISLIv3/SOURCES/initial-phy-2.f90

    r400 r446  
    1919 
    2020  use module3D_phy, only:icompteur,iout,reprcptr,igrdline,schoof,ibmelt_inv,dtmin,dtmax,& 
    21        dtt,testdiag,geoplace,num_param,num_rep_42,num_ritz,dt,ntmax,time,tafor,sealevel,& 
     21       dtt,testdiag,num_param,num_rep_42,num_ritz,dt,ntmax,time,tafor,sealevel,& 
    2222       sealevel_2d,secyear,nzz,nz,nzm,cl,da,nice,isynchro 
     23  use geography, only: geoplace 
    2324  use runparam, only :runname,itracebug,num_tracebug,tbegin,tend,dirsource,dirnameout,dttest,& 
    2425       nt 

  • branches/GRISLIv3/SOURCES/initial2-0.4.f90

    r388 r446  
    1717subroutine INITIAL2() 
    1818 
    19   USE module3D_phy 
     19  USE module3D_phy, only: cde,abl,bdot,bmelt,epsxx,epsyy,epsxy,hwater,calv,hdot,hdotwater,pdd, & 
     20                    slope,taub,tg,ubx,uby,uzk,uxbar,uybar,vbar,ibase,tpmp,mk,mk0,h,grzone,front, & 
     21                    frontfacex,frontfacey,bsoc,flot,sealevel_2D,flotmx,flotmy,okumat,okvmat,gzmx, & 
     22                    gzmy,flgzmx,flgzmy,ilemx,ilemy,sdx,sdy,ux,uy,uzr,t,s 
     23  use geography, only: nx,ny,nz,nzm,dx 
    2024  USE param_phy_mod 
    2125  implicit none 
    2226  real,dimension(NZ) ::cord_vert  
     27 
     28  integer :: i,j,k 
    2329 
    2430  !     INITIALISATION DES TABLEAUX 

  • branches/GRISLIv3/SOURCES/isostasie_mod-0.3.f90

    r376 r446  
    2727 
    2828    use iso_declar,only: nlith,dt_iso,tausoc,dl,rl,lbloc,we,charge 
    29     use module3D_phy, only: geoplace,icouple,marine,err,dx,nx,ny,h0,bsoc0,sealevel_2d,w0,w1,i,j 
     29    use module3D_phy, only: icouple,marine,err,h0,bsoc0,sealevel_2d,w0,w1,i,j 
     30    use geography, only: geoplace,nx,ny,dx,dy 
    3031    use param_phy_mod, only: ro,row,rog,rowg,romg 
    3132 

  • branches/GRISLIv3/SOURCES/litho-0.4.f90

    r376 r446  
    3939subroutine litho 
    4040  !$ USE OMP_LIB 
    41   USE module3D_phy, only: err,nx,ny,i,j,w1 
     41  USE module3D_phy, only: err,w1 
     42  use geography, only: nx,ny 
    4243  USE iso_declar, only: lbloc,we,charge ! module de declaration des variables specifiques a l'isostasie 
    4344 
    … …  
    4748  REAL, dimension(:,:), allocatable :: WLOC 
    4849 
     50  integer :: i,j 
    4951 
    5052  !----- allocation de WLOC  et de croix ----------- 

  • branches/GRISLIv3/SOURCES/main3D-0.4-40km.f90

    r233 r446  
    103103 
    104104  USE module3D_phy 
     105  use runparam, only: tend 
    105106  USE module_choix !   module de choix du type de run 
    106107  !  module_choix donne acces a tous les modules 
    … …  
    141142 
    142143  USE module3D_phy 
     144  use runparam, only: tbegin,dtprofile,dtcpt,dirnameout,runname 
    143145  USE module_choix ! module de choix du type de run 
    144146  !  module_choix donne acces a tous les modules 

  • branches/GRISLIv3/SOURCES/neffect-0.4.f90

    r430 r446  
    1919  use param_phy_mod, only: ro,row,g 
    2020  use runparam, only: itracebug 
    21   use module3D_phy, only: nx,ny,flotmx,flotmy,coefmxbmelt,coefmybmelt,hwater,neffmx,neffmy,hmx,hmy,hwatermax 
     21  use module3D_phy, only: flotmx,flotmy,coefmxbmelt,coefmybmelt,hwater,neffmx,neffmy,hmx,hmy,hwatermax 
     22  use geography, only: nx,ny 
    2223  use module_choix, only: eaubasale 
    2324 

  • branches/GRISLIv3/SOURCES/out_cptr_mod.f90

    r424 r446  
    383383 
    384384  use module3D_phy 
     385  use runparam, only: itracebug 
     386  use geography, only: geoplace 
    385387  use netcdf 
    386388  use io_netcdf_grisli 

  • branches/GRISLIv3/SOURCES/spinup_mod.f90

    r429 r446  
    161161  subroutine lect_vitbil_Lebrocq 
    162162 
    163     use module3D_phy, only: num_rep_42,mstream_mx,itracebug,num_param,pi 
     163    use module3D_phy, only: num_rep_42,mstream_mx,num_param,pi 
    164164    use io_netcdf_grisli, only: Read_Ncdf_var 
    165165    use geography, only: dirnameinp 

  • branches/GRISLIv3/SOURCES/strain_rate.f90

    r4 r446  
    3030 
    3131      use module3d_phy 
     32      use runparam, only: itracebug 
     33      use geography, only: dx,dy 
    3234  
    3335      implicit none 

  • branches/GRISLIv3/SOURCES/tab-litho-0.3.f90

    r376 r446  
    2424subroutine tab_litho  
    2525 
    26   USE module3D_phy, only: pi,dx,dy,num_kelvin,dirnameinp,i,j,k 
     26  USE module3D_phy, only: pi,num_kelvin 
     27  use geography, only: dx,dy,dirnameinp 
    2728  USE param_phy_mod, only: rom,g 
    2829  USE iso_declar, only: rl,dl,lbloc,we ! module de declaration pour l'isostasie 
    … …  
    3637  REAL :: stepk,AL,XL,DIST 
    3738  REAL :: som 
     39 
     40  integer :: i,j,k 
    3841 
    3942  ! pour la lithosphere 

  • branches/GRISLIv3/SOURCES/taubed-0.3.f90

    r376 r446  
    4444 
    4545  !$USE OMP_LIB  
    46   USE module3D_phy, only: i,j,nx,ny,h,bsoc0,bsoc,bdot,sealevel_2d,w0,w1 
     46  USE module3D_phy, only: h,bsoc0,bsoc,bdot,sealevel_2d,w0,w1 
     47  USE geography, only: nx,ny 
    4748  USE param_phy_mod, only: ro,row,rog,rowg,rom 
    4849  USE iso_declar,only: nlith,lbloc,charge,dt_iso,tausoc ! module de declaration des variables de l'isostasie 
    4950 
    5051  implicit none 
     52 
     53  integer :: i,j  
    5154 
    5255  !    ********* calcul de W1 l'enfoncement d'equilibre au temps t 

  • branches/GRISLIv3/SOURCES/tracer_mod.f90

    r387 r446  
    2727module tracer_mod 
    2828 
    29   use module3d_phy, only:nx,ny,nz,itracer,e,time,dtt,num_param,num_rep_42,dx,dy,acc,H,dirforcage,num_forc,& 
     29  use module3d_phy, only: itracer,e,time,dtt,num_param,num_rep_42,acc,H,num_forc,& 
    3030       ux,uy,uzr,bmelt,S,flot,bm 
    31   use runparam, only:itracebug,num_tracebug,xmin,ymin,tbegin,tend 
     31  use geography, only: nx,ny,nz,dx,dy,dirforcage 
     32  use runparam, only: itracebug,num_tracebug,xmin,ymin,tbegin,tend 
    3233  ! module de declaration de variables pour les traceurs 
    3334  use tracer_vars, only:file_tr_dat,file_tr_out,file_tr_dep,file_tr_dat,coeft_tra,rappact_tra,nij,& 

  • branches/GRISLIv3/SOURCES/tracer_vars_mod.f90

    r387 r446  
    44module tracer_vars 
    55   
    6   use module3d_phy, only:nx,ny,nz,itracer 
     6  use module3d_phy, only: itracer 
     7  use geography, only: nx,ny,nz 
    78   
    89  implicit none 

  • branches/GRISLIv3/SOURCES/util_recovery.f90

    r142 r446  
    1313 
    1414module util_recovery 
    15   use module3D_phy 
    1615  implicit none  
    1716  double precision    ,dimension(:),allocatable :: tab_time 
    … …  
    2625 
    2726  subroutine init_recovery 
     27 
     28    use module3d_phy, only: time 
     29    use runparam, only: itracebug,dirsource 
     30 
    2831    implicit none  
    2932 
    … …  
    6972 
    7073  subroutine testout_recovery(filin) 
     74 
     75    use module3d_phy, only: time,dtmin 
     76    use runparam, only: itracebug,runname,tend 
     77 
    7178    implicit none  
    7279    real                           :: difftime   

  • branches/GRISLIv3/SOURCES/velocities-polyn-0.3.f90

    r375 r446  
    2525  !$ USE OMP_LIB 
    2626  use runparam, only : itracebug       
    27   use module3d_phy, only: nx,ny,nz,dx,flotmx,flotmy,ux,uy,sux,suy,sdx,sdy,ubx,uby,& 
     27  use module3d_phy, only: flotmx,flotmy,ux,uy,sux,suy,sdx,sdy,ubx,uby,& 
    2828       hmx,hmy,uxbar,uybar,iglen,cde,divu,uzr,bmelt,bm,flot,front,flgzmx,flgzmy,& 
    2929       uzsdot,dtt,uzk,bdot,hdot 
     30  use geography, only : nx,ny,nz,dx 
    3031  use deformation_mod_2lois, only: n1poly,n2poly,ddx,ddy,sa_mx,sa_my,s2a_mx,s2a_my 
    3132 
Note: See TracChangeset for help on using the changeset viewer.