Changeset 1920 for branches/DEV_1879_mpp_rep/NEMO/OPA_SRC/SOL/solver.F90

Timestamp:

2010-06-07T13:45:58+02:00 (14 years ago)

Author:

rblod

Message:

Add modifications for mpp reproducibility, see ticket #677

File:

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

branches/DEV_1879_mpp_rep/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