Changeset 468 for branches/GRISLIv3/SOURCES/conserv-mass-adv-diff_sept2009_mod.f90

Timestamp:

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

Author:

aquiquet

Message:

Cleaning branch: removing weird useless boolean

File:

• branches/GRISLIv3/SOURCES/conserv-mass-adv-diff_sept2009_mod.f90 (modified) (2 diffs)

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

@@ -20 +20 @@
   use module3D_phy, only: V_limit,num_param,num_rep_42,dx1,mk0,i_Hp,Hp,H,uxbar,uybar,testdiag,&
        dtmax,dt,dtmin,time,dtt,isynchro,diffmx,diffmy,sdx,sdy,hmx,hmy,flgzmx,flgzmy,flot,timemax,&
-       marine,dtdx2,dtdx,bm,bmelt,igrdline,ibmelt_inv,ice,ablbord,hdot
+       dtdx2,dtdx,bm,bmelt,igrdline,ibmelt_inv,ice,ablbord,hdot
   use geography, only: nx,ny,dx,geoplace
-  use runparam, only: itracebug,num_tracebug,tgrounded
+  use runparam, only: itracebug,num_tracebug
   use reso_adv_diff_2D_vect, only: init_reso_adv_diff_2D,resol_adv_diff_2D_vect
 !  use prescribe_H, only:prescribe_fixed_points,prescribe_paleo_gl_shelf,prescribe_present_H_gl,&
@@ -371 +371 @@
 
     timemax=time
-
-    ! etait avant dans step
-    if (time.lt.TGROUNDED) then
-       MARINE=.false.
-    else
-       MARINE=.true.
-    endif
-    ! fin vient de step
 
     ! les variables dtdx et dtdx2 sont globales