Changeset 140 for trunk/SOURCES/New-remplimat/diagno-L2_mod.f90

Timestamp:

10/17/17 10:20:11 (7 years ago)

Author:

aquiquet

Message:

Additions for initMIP outputs

File:

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

trunk/SOURCES/New-remplimat/diagno-L2_mod.f90

@@ -274 +274 @@
   !$OMP END DO
 
+  ! 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