Changeset 504

Timestamp:

05/31/24 14:33:03 (4 weeks ago)

Author:

aquiquet

Message:

Cleaning branch: remove unused cote variable

Location:

branches/GRISLIv3/SOURCES/Draggings_modules

Files:

• dragging_param_beta_mod.f90 (modified) (3 diffs)
• dragging_param_beta_sedim_mod.f90 (modified) (3 diffs)

branches/GRISLIv3/SOURCES/Draggings_modules/dragging_param_beta_mod.f90

@@ -28 +28 @@
 
   implicit none
-
-  logical,dimension(nx,ny) :: cote
 
   real,dimension(nx,ny) :: beta_param ! local variable
@@ -213 +211 @@
     fleuvemx(:,:)=.false.
     fleuvemy(:,:)=.false.
-    cote(:,:)=.false.
     gzmx(:,:)=.true.
     gzmy(:,:)=.true.
@@ -219 +216 @@
     flgzmy(:,:)=.false.
     !$OMP END WORKSHARE
-
-    ! detection des cotes
-    !$OMP DO
-    do  j=2,ny-1
-       do i=2,nx-1
-          if ((.not.flot(i,j)).and. &
-               ((flot(i+1,j)).or.(flot(i,j+1)).or.(flot(i-1,j)).or.(flot(i,j-1)))) then
-             cote(i,j)=.true.
-          endif
-       end do
-    end do
-    !$OMP END DO
 
 

branches/GRISLIv3/SOURCES/Draggings_modules/dragging_param_beta_sedim_mod.f90

@@ -28 +28 @@
 
   implicit none
-
-  logical,dimension(nx,ny) :: cote
 
   real,dimension(nx,ny) :: beta_param ! local variable
@@ -252 +250 @@
     fleuvemx(:,:)=.false.
     fleuvemy(:,:)=.false.
-    cote(:,:)=.false.
     gzmx(:,:)=.true.
     gzmy(:,:)=.true.
@@ -258 +255 @@
     flgzmy(:,:)=.false.
     !$OMP END WORKSHARE
-
-    ! detection des cotes
-    !$OMP DO
-    do  j=2,ny-1
-       do i=2,nx-1
-          if ((.not.flot(i,j)).and. &
-               ((flot(i+1,j)).or.(flot(i,j+1)).or.(flot(i-1,j)).or.(flot(i,j-1)))) then
-             cote(i,j)=.true.
-          endif
-       end do
-    end do
-    !$OMP END DO