Changeset 463 for branches

Timestamp:

01/19/24 16:51:39 (4 months ago)

Author:

aquiquet

Message:

Cleaning branch: masque subroutine with explicit arguments

Location:

branches/GRISLIv3/SOURCES

Files:

• main3D-0.4-40km.f90 (modified) (3 diffs)
• masque.f90 (modified) (1 diff)
• steps_time_loop.f90 (modified) (2 diffs)

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

@@ -133 +133 @@
   USE module3D_phy, only: itemp,icouple,isynchro,imargin,icompteur,iglen,timecg,marine,num_sealevel, &
                           num_ts_ritz,num_ic_vo,num_ic_by,num_ic_dm,num_ic_dc,num_ic_df, &
-                          s,h,b,bsoc,flot,uxbar,uybar,hwater,time,timemax,boost,ndebug,ndebug_max
+                          s,h,b,bsoc,flot,mk,mk0,uxbar,uybar,hwater,time,timemax,boost,ndebug,ndebug_max
   use runparam, only: nt,tbegin,tgrounded,dtprofile,dtcpt,dirnameout,runname,itracebug
   use geography, only: nx,ny,geoplace
@@ -255 +255 @@
 
         if ((ITEMP.eq.0).or.(ITEMP.eq.3)) then
-           call masque()
+           call masque(flot,mk,mk0,itracebug)
 
            call Neffect()
@@ -298 +298 @@
 
 
-     call masque()
+     call masque(flot,mk,mk0,itracebug)
      call flottab()
      call neffect()
      call flottab()
-     call masque()
+     call masque(flot,mk,mk0,itracebug)
 
      do i=1,nx

branches/GRISLIv3/SOURCES/masque.f90

@@ -13 +13 @@
 
 ! version juillet 2009
-subroutine masque
-  
-  use geography, only:nx,ny
-  use module3D_phy, only:flot,mk,mk0
-  use runparam, only: itracebug
-  
+subroutine masque(flot,mk,mk0,itracebug)
+
   implicit none
+
+  logical,dimension(:,:),intent(in)    :: flot
+  integer,dimension(:,:),intent(in)    :: mk0
+  integer,               intent(in)    :: itracebug
+  integer,dimension(:,:),intent(inout) :: mk
 
   if (itracebug.eq.1)  call tracebug(' Entree dans masque')

branches/GRISLIv3/SOURCES/steps_time_loop.f90

@@ -167 +167 @@
   
   use module3d_phy, only: ispinup,isynchro,timemax,time,marine,iglen,shelfy,icompteur,&
-       test_iter_diag,inv_beta,dtmin
+       test_iter_diag,inv_beta,dtmin,flot,mk,mk0
   use runparam, only: itracebug,nt,num_tracebug
   use geography, only: geoplace
@@ -211 +211 @@
   ! update the regions (floating, ice ...)
   !-------------------------------------------
-  call masque
+  call masque(flot,mk,mk0,itracebug)