Changeset 288

Timestamp:

2005-09-22T12:44:36+02:00 (19 years ago)

Author:

opalod

Message:

nemo_v1_bugfix_005 : CT : remove few bugs in the Sea-ice component related to the reproductibility problem of mono .vs. multi processors simulations

Location:

trunk/NEMO

Files:

• LIM_SRC/limdyn.F90 (modified) (1 diff)
• LIM_SRC/limhdf.F90 (modified) (3 diffs)
• OPA_SRC/lbclnk.F90 (modified) (2 diffs)

trunk/NEMO/LIM_SRC/limdyn.F90

@@ -153 +153 @@
 
          ENDIF
-
-         u_ice(:,1) = 0.e0       !ibug  est-ce vraiment necessaire?
-         v_ice(:,1) = 0.e0
 
          IF(ln_ctl)   THEN 

trunk/NEMO/LIM_SRC/limhdf.F90

@@ -15 +15 @@
    USE in_out_manager
    USE ice
-!  USE limdyn
    USE lbclnk
    USE lib_mpp
@@ -148 +147 @@
          END DO
 
+         ! lateral boundary condition on ptab
+         CALL lbc_lnk( zrlx, 'T', 1. )
+
          ! convergence test
          zconv = 0.e0
@@ -162 +164 @@
             END DO
          END DO
-
-         ! lateral boundary condition on ptab
-         CALL lbc_lnk( ptab, 'T', 1. )
          !                                         !==========================
       END DO                                       ! end of sub-time step loop
       !                                            !==========================
 
-      ptab(:,:) = ptab(:,:)
+      ptab(:,:) = zrlx(:,:)
+
       IF(ln_ctl)   THEN
          zrlx(:,:) = ptab(:,:) - ptab0(:,:)

trunk/NEMO/OPA_SRC/lbclnk.F90

@@ -335 +335 @@
 
          CASE ( 'I' )                                  ! ice U-V point
+            pt2d(:, 1 ) = 0.e0
             pt2d(2,jpj) = psgn * pt2d(3,jpj-1)
             DO ji = 3, jpi
@@ -387 +388 @@
 
          CASE ( 'I' )                                  ! ice U-V point
+            pt2d( : , 1 ) = 0.e0
             pt2d( 2 ,jpj) = 0.e0
             DO ji = 2 , jpim1