Changeset 288 for trunk/NEMO/LIM_SRC/limhdf.F90

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

File:

• trunk/NEMO/LIM_SRC/limhdf.F90 (modified) (3 diffs)

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(:,:)