Changeset 388


Ignore:
Timestamp:
03/22/23 17:15:38 (13 months ago)
Author:
aquiquet
Message:

Cleaning branch: use only statements in temperature

Location:
branches/GRISLIv3/SOURCES
Files:
7 edited

Legend:

Unmodified
Added
Removed

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

    r376 r388  
    291291  real,dimension(nx,ny) :: PRECIP0      !< initial precipitation  (used in 'heminord') 
    292292  real,dimension(nx,ny) :: PHID         !< flux de chaleur lie a la deformation et glissement basal 
    293   real,dimension(nx,ny) :: chalgliss_maj !< chaleur de glissement seulement 
    294293  real,dimension(nx,ny) :: PWATER       !< basal water pressure 
    295294  real,dimension(nx,ny) :: pgx,pgy      !< hydro. potential gradient  / x '>' and / y '^' 

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

    r363 r388  
    1616subroutine Qprod_ice(Iq1) 
    1717 
    18   use Icetemp_declar 
     18  use module3D_phy, only: nx,ny,nz,flot,h,epsxx,epsyy,epsxy,sdx,sdy,gzmx,gzmy,flgzmx,flgzmy,fleuvemx,fleuvemy,flotmx,flotmy,  & 
     19                            hmx,hmy,ddbx,ddby,tobmx,tobmy,phid,t,tpmp,uxbar,uybar,ux,uy 
     20  use module_choix, only: ddx,ddy,visc,btt,glen ! afq - 03/2023 - not clean 
     21  use Icetemp_declar,only: chaldef_maj,chalx,chaly,chal2_x,chal2_y,chal2_z,chal2_xy,chalgliss_maj,chalglissx,chalglissy,ffx,ffy,cp,ee, & 
     22                             ecart_phid,fracq,dee 
     23  use param_phy_mod, only: ro,g 
     24 
    1925!$ USE OMP_LIB 
    2026 
    2127 
    2228  implicit none 
     29 
     30  integer i,j,k,l 
    2331 
    2432  !<Arguments 

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

    r73 r388  
    1212module icetemp_declar      
    1313 
    14   Use Module_choix 
    15   Use Param_phy_mod 
     14  use module_choix, only: btt ! afq - 03/2023 - not clean 
     15  use module3D_phy, only: nx,ny,nn,nz,nzm 
     16  !use Param_phy_mod 
    1617 
    1718  Implicit None  
    … …  
    5354  ! ___________________________ 
    5455  Real,Dimension(Nx,Ny):: Tbmer    !< Temperature De La Mer A La Base De L'Ice Shelf   
    55   Real,Dimension(Nx,Ny) :: Chalglissx,Chalglissy !< Chaleur De Glissement              
    56   Integer,Dimension(Nx,Ny) :: Iadvec_w,Iadvec_e,Iadvec_s,Iadvec_n    
     56  Real,Dimension(Nx,Ny) :: Chalglissx,Chalglissy !< Chaleur De Glissement 
     57  Real,dimension(nx,ny) :: chalgliss_maj    !< chaleur de glissement seulement 
     58  Integer,Dimension(Nx,Ny) :: Iadvec_w,Iadvec_e,Iadvec_s,Iadvec_n 
     59 
    5760  ! Pour L'Advection         
    5861 

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

    r271 r388  
    1818 
    1919  Subroutine init_icetemp(Num_rep_42_m) 
    20     Use Icetemp_declar, only : Nfracq,Iq,Ecart_phid 
     20    Use Icetemp_declar, only: Nfracq,Iq,Ecart_phid 
     21    Use module3D_phy,   only: tbdot 
    2122 
    2223    Implicit None 
    … …  
    5354!    Write(Num_rep_42_m,*) '---------------------------------------------------------------------------' 
    5455 
     56    tbdot(:,:) = 0.  
     57 
    5558  End Subroutine init_icetemp 
    5659   
    … …  
    6770  subroutine icetemp 
    6871    !$ use OMP_LIB  
    69     use Icetemp_declar 
     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, & 
     73                             ghf,t,tpmp,phid,flot,ibase,debug_3D,tbdot 
     74    use Icetemp_declar, only: aa,bb,cc,rr,hh,tdot,chal2_x,chal2_y,chal2_z,chal2_xy,chaldef_maj,chalglissx,chalglissy, & 
     75                               dee,fracq,nfracq,ee,ctm,ct,cm,cpm,dzm,dttdx,dx11,iq,iadvec_w,iadvec_e,iadvec_s,iadvec_n,  & 
     76                               deh22,duu,dou,cp,tbmer,advecx,advecy,advec,t3d_new,ncond,ifail1 
     77    use param_phy_mod, only: rom 
    7078 
    7179 
    7280    Implicit None  
    73      
     81 
     82    integer i,j,k 
     83 
    7484!~   integer :: t1,t2,ir 
    7585!~   real                           :: temps, t_cpu_0, t_cpu_1, t_cpu, norme   

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

    r76 r388  
    1616Subroutine Thermal_prop_icetemp 
    1717!$ USE OMP_LIB 
    18   Use Icetemp_declar  
     18  use module3d_phy, only: nx,ny,nz,itracebug,num_tracebug,h,t,tpmp 
     19  use icetemp_declar, only: cp,ct  
     20  use Param_phy_mod, only: ro 
    1921 
    2022  Implicit None 
     23 
     24  integer i,j,k 
    2125 
    2226  If (Itracebug.Eq.1) Write(Num_tracebug,*)' Entree Dans Routine Thermal_prop_icetemp' 
    … …  
    5357!> 
    5458Subroutine Temp_mer 
    55   Use Icetemp_declar 
     59  use module3D_phy, only: H,flot,nx,ny,i,j,itracebug,num_tracebug 
     60  use Icetemp_declar,only: acof1,bcof1,ccof1,tbmer,S0mer 
     61  use Param_phy_mod, only: ro,row 
     62 
    5663  Implicit None  
    5764 

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

    r102 r388  
    1818 
    1919!  Use Icetemp_declar 
    20   Use Tridiagmod 
     20  Use Tridiagmod, only: tridiag 
    2121   
    2222   

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

    r375 r388  
    4343  PDD(:,:)=0. 
    4444  SLOPE(:,:)=0.  
    45   TBDOT(:,:)=0. 
    4645  TAUB(:,:)=0.  
    4746  TG(:,:)=0. 
Note: See TracChangeset for help on using the changeset viewer.