Changeset 146 for branches/iLoveclim/SOURCES/New-remplimat/diagno-L2_mod.f90

Timestamp:

10/20/17 09:31:39 (7 years ago)

Author:

aquiquet

Message:

Grisli-iLoveclim branch: merged to trunk at revision 145

Location:

branches/iLoveclim

Files:

• . (modified) (1 prop)
• SOURCES/New-remplimat/diagno-L2_mod.f90 (modified) (1 diff)

branches/iLoveclim/SOURCES/New-remplimat/diagno-L2_mod.f90

@@ -273 +273 @@
   enddo
   !$OMP END DO
-
+  !$OMP BARRIER
+
+  ! afq -- initMIP outputs:
+  !$OMP DO
+  do j=2,ny-1 
+     do i=2,nx-1
+        taub(i,j) = sqrt( ((tobmx(i,j)+tobmx(i+1,j))*0.5)**2 &
+             + ((tobmy(i,j)+tobmy(i,j+1))*0.5)**2 )
+     end do
+  end do
+  !$OMP END DO
+  !$OMP WORKSHARE
+  debug_3d(:,:,117) = taub(:,:)
+  !$OMP END WORKSHARE
+
+  
   ! Mise ne réserve des vitesses flgzmx et flgzmy
   !$OMP WORKSHARE