Changeset 481 for branches/GRISLIv3/SOURCES/main3D-0.4-40km.f90

Timestamp:

02/09/24 10:58:55 (4 months ago)

Author:

aquiquet

Message:

Cleaning branch: unused variables removed following strict compilation

File:

• branches/GRISLIv3/SOURCES/main3D-0.4-40km.f90 (modified) (5 diffs)

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

@@ -131 +131 @@
 subroutine grisli_init
 
-  USE module3D_phy, only: itemp,icouple,isynchro,icompteur,iglen, &
+  USE module3D_phy, only: isynchro,icompteur,iglen, &
                           ice,bm,bmelt,ablbord,ablbord_dtt,dt,    &
                           s,h,b,bsoc,flot,mk,mk0,uxbar,uybar,hwater,time,timemax,ndebug,ndebug_max
-  use runparam, only: nt,tbegin,dtprofile,dtcpt,dirnameout,runname,itracebug
+  use runparam, only: nt,tbegin,dtprofile,dtcpt,dirnameout,itracebug
   use geography, only: nx,ny,geoplace
   use deformation_mod_2lois, only:n1poly,n2poly
@@ -156 +156 @@
   !      1 ou 2 passe (se met a 0 tout seul si on prend un fichier .cptr)
 
-  ITEMP=0
-
-  !      switch couple physique faible =>  CP et CT independant T
-  !               0     pas de trait. vert.  A FAIRE           niveau L0
-  !               1     pas de couplage , faible physique      niveau L1
-  !               2     couplage, faible physique              niveau L2
-  !               3     couplage, physique complete sans CBT   niveau L3
-  !               4     idem 3 mais loi de def. Duval          niveau L4
-  ICOUPLE=4
-
   nt=-1   ! utilisee dans initialisation flottab
   !     sortie profile tous les dtprofile
@@ -209 +199 @@
   tcpt:if (ICOMPTEUR.eq.0) then
 
-
-
-        if ((ITEMP.eq.0).or.(ITEMP.eq.3)) then
            call masque(flot,mk,mk0,itracebug)
 
@@ -224 +211 @@
            !       ========================================================
 
-           if (ITEMP.eq.0) call lineartemp()
+           call lineartemp()
 
            call bmelt_grounded 
@@ -244 +231 @@
            call diffusiv()
            call SIA_velocities()
-        endif
 
   else  ! tcpt     on reprend un fichier compteur (ICOMPTEUR.eq.1)