Changeset 468 for branches/GRISLIv3/SOURCES/isostasie_mod-0.3.f90

Timestamp:

01/26/24 17:14:43 (4 months ago)

Author:

aquiquet

Message:

Cleaning branch: removing weird useless boolean

File:

• branches/GRISLIv3/SOURCES/isostasie_mod-0.3.f90 (modified) (2 diffs)

branches/GRISLIv3/SOURCES/isostasie_mod-0.3.f90

@@ -33 +33 @@
 
     use iso_declar,only: nlith,dt_iso,tausoc,dl,rl,lbloc,we,charge
-    use module3D_phy, only: icouple,marine,err,h0,bsoc0,sealevel_2d
+    use module3D_phy, only: icouple,err,h0,bsoc0,sealevel_2d
     use geography, only: geoplace,nx,ny,dx,dy
     use param_phy_mod, only: ro,row,rog,rowg,romg
@@ -44 +44 @@
     integer :: i,j
 
-    if (GEOPLACE.eq.'eismint') then
-       NBED=0
-       NLITH=0
-    else if (GEOPLACE(1:6).eq.'marine') then
-       NBED=1
-       NLITH=1
-    else if ((geoplace.eq.'anteis1').or.(geoplace.eq.'ant20km')) then
-
-       if (icouple.eq.2) then
-          NBED=0
-          NLITH=0
-          if (marine) then
-             NBED=1
-             NLITH=1
-          endif
-       else
-          NBED=1
-          NLITH=1
-       endif
-    else
-       NBED=1
-       !       switch sur la lithosphere
-       NLITH=1
-    endif
+    NBED=1
+    NLITH=1
 
     !      temps de reaction en annees