Changeset 1976 for branches/DEV_r1784_mid_year_merge_2010/NEMO/OPA_SRC/SOL/solver.F90

Timestamp:

2010-06-29T17:41:10+02:00 (14 years ago)

Author:

acc

Message:

ticket #684 step 6: Add in changes between the head of the DEV_r1879_mpp_rep branch and the trunk@1879.

File:

• branches/DEV_r1784_mid_year_merge_2010/NEMO/OPA_SRC/SOL/solver.F90 (modified) (1 diff)

branches/DEV_r1784_mid_year_merge_2010/NEMO/OPA_SRC/SOL/solver.F90

@@ -102 +102 @@
       END SELECT
       !
-      IF( nbit_cmp == 1 ) THEN            ! reproductibility test SOR required
-         IF( nn_solv /= 2 ) THEN
-            CALL ctl_stop( ' Reproductibility tests (nbit_cmp=1) require the SOR solver: nn_solv = 2' )
-         ELSE IF( MAX( jpr2di, jpr2dj ) > 0 ) THEN
-            CALL ctl_stop( ' Reproductibility tests (nbit_cmp=1) require jpr2di = jpr2dj = 0' )
-         END IF 
-      END IF
 
       !                             !* Grid-point at which the solver is applied