Changeset 415 for branches/GRISLIv3

Timestamp:

04/07/23 17:38:40 (15 months ago)

Author:

dumas

Message:

use only in subroutine masque

File:

• branches/GRISLIv3/SOURCES/masque.f90 (modified) (1 diff)

branches/GRISLIv3/SOURCES/masque.f90

@@ -14 +14 @@
 ! version juillet 2009
 subroutine masque
+  
+  use geography, only:nx,ny
+  use module3D_phy, only:flot,mk,mk0
+  use runparam, only: itracebug
+  
+  implicit none
 
-use module3D_phy
-implicit none
+  if (itracebug.eq.1)  call tracebug(' Entree dans masque')
 
-if (itracebug.eq.1)  call tracebug(' Entree dans masque')
-
-! mk donne la flottaison
-do j=1,ny
-   do i=1,nx
-      if (flot(i,j)) then
-         mk(i,j)=1 
-      else
-         mk(i,j)=0
-      endif
-   end do
-end do
-
-! pour eventuellement enlever certaines zones
-mk(:,:)=mk(:,:)*mk0(:,:)
+  ! mk donne la flottaison
+  where (flot(:,:))
+     mk(:,:)=1
+  elsewhere
+     mk(:,:)=0
+  endwhere
+  
+  ! pour eventuellement enlever certaines zones
+  mk(:,:)=mk(:,:)*mk0(:,:)
       
 end subroutine masque