Changeset 194 for trunk/SOURCES/dragging_param_beta_sedim_mod.f90

Timestamp:

06/05/18 14:00:24 (6 years ago)

Author:

aquiquet

Message:

We apply schoof flux even on island tagged points. Dragging param is corrected so that we do not alter islands as computed in flottab.

File:

• trunk/SOURCES/dragging_param_beta_sedim_mod.f90 (modified) (2 diffs)

trunk/SOURCES/dragging_param_beta_sedim_mod.f90

@@ -126 +126 @@
       enddo
  
-      toblim = 0.7e5 ! afq -- pour les iles, mais est-ce vraiment utile?
+      !afq -- toblim = 0. !0.7e5 ! afq -- pour les iles, mais est-ce vraiment utile?
 
       return
@@ -143 +143 @@
 
 !$OMP PARALLEL
-!$OMP DO
-do j=2,ny
-   do i=2,nx
-      ilemx(i,j)=ilemx(i,j).and.(abs(rog*Hmx(i,j)*sdx(i,j)).lt.toblim)
-      ilemy(i,j)=ilemy(i,j).and.(abs(rog*Hmy(i,j)*sdy(i,j)).lt.toblim)
-   end do
-end do
-!$OMP END DO
+
+!    -- !$OMP DO
+!    -- do j=2,ny
+!    --    do i=2,nx
+!    --       ilemx(i,j)=ilemx(i,j).and.(abs(rog*Hmx(i,j)*sdx(i,j)).lt.toblim)
+!    --       ilemy(i,j)=ilemy(i,j).and.(abs(rog*Hmy(i,j)*sdy(i,j)).lt.toblim)
+!    --    end do
+!    -- end do
+!    -- !$OMP END DO