Changeset 479

Timestamp:

02/07/24 18:08:08 (5 months ago)

Author:

aquiquet

Message:

Cleaning branch: some small cleaning in Temperature

Location:

branches/GRISLIv3/SOURCES/Temperature-routines

Files:

• Old (deleted)
• icetemp_declar_mod.f90 (modified) (2 diffs)

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

@@ -12 +12 @@
 module icetemp_declar     
 
-  use module_choix, only: btt ! afq - 03/2023 - not clean
+  use deformation_mod_2lois, only: btt
   use geography, only: nx,ny,nn,nz,nzm
-  !use Param_phy_mod
 
   Implicit None 
 
   !> \Var
-!  integer ::  Nx_m,Ny_m,Nz_m,Nzm_m,NzNzm_m 
-  Integer :: Iec,Jec,Ngr
   Integer :: Nfracq   !< Exposant Fracq
   Integer :: Iq       !< Choix Du Type De Routine Chaleur
-  Real :: Sx,Sy,Sx2,Sy2,Deh22 ! ,Tss
+  Real :: Deh22 
   Real ::  Dou,Duu,Chalbed ! ,Dah,Dzz,Dzi,Ct_bas,Ct_haut
 
@@ -33 +30 @@
   ! a la Base De L'Ice Shelf
   Integer :: Ifail1             !< Permet De Detecter Les Erreurs 
-  Real :: Chalbed_1             !< Utilise Pour Le Calcul De Chalbed
-  Real :: Coefadv               !< Pour Limiter Le Flux De Chaleur Horiz.
   Real :: Ecart_phid            !< Pour Limiter L'Impact De La Chaleur De Glissement Si Base Froide
   ! Ancienne Valeur 0.5.