Changeset 869 for trunk/NEMO/OPA_SRC/lbclnk.F90

Timestamp:

2008-03-26T10:21:54+01:00 (16 years ago)

Author:

rblod

Message:

Parallelisation of LIM3. This commit seems to ensure the reproducibility mono/mpp. See ticket #77.

File:

• trunk/NEMO/OPA_SRC/lbclnk.F90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/lbclnk.F90

@@ -410 +410 @@
          CASE ( 3 , 4 )                        ! *  North fold  T-point pivot
 
-            pt3d( 1 ,jpj,jk) = 0.e0
-            pt3d(jpi,jpj,jk) = 0.e0
+!            pt3d( 1 ,jpj,jk) = 0.e0
+!            pt3d(jpi,jpj,jk) = 0.e0
 
             SELECT CASE ( cd_type )
@@ -584 +584 @@
       CASE ( 3 , 4 )                           ! * North fold  T-point pivot
 
-         pt2d( 1 , 1 ) = 0.e0        !!!!!  bug gm ??? !Edmee
-         pt2d( 1 ,jpj) = 0.e0
-         pt2d(jpi,jpj) = 0.e0
+!         pt2d( 1 , 1 ) = 0.e0        !!!!!  bug gm ??? !Edmee
+!         pt2d( 1 ,jpj) = 0.e0
+!         pt2d(jpi,jpj) = 0.e0
 
          SELECT CASE ( cd_type )