Changeset 2528 for trunk/NEMOGCM/NEMO/OPA_SRC/SOL/solver.F90

Timestamp:

2010-12-27T18:33:53+01:00 (13 years ago)

Author:

rblod

Message:

Update NEMOGCM from branch nemo_v3_3_beta

File:

• trunk/NEMOGCM/NEMO/OPA_SRC/SOL/solver.F90 (modified) (2 diffs, 1 prop)

trunk/NEMOGCM/NEMO/OPA_SRC/SOL/solver.F90

@@ -31 +31 @@
 
    !!----------------------------------------------------------------------
-   !! NEMO/OPA 9.0 , LOCEAN-IPSL (2009) 
+   !! NEMO/OPA 3.3 , NEMO Consortium (2010)
    !! $Id$ 
-   !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt)
+   !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt)
    !!----------------------------------------------------------------------
 
@@ -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
 !!gm  c_solver_pt should be removed: nomore bsf, only T-point is used
-      IF( lk_mpp ) THEN   ;    c_solver_pt = 'S'   ! S=T with special staff ??? which one?
-      ELSE                ;    c_solver_pt = 'T'
-      ENDIF
+      c_solver_pt = 'T'                   ! always T-point (ssh solver only, not anymore bsf)
 
       CALL sol_mat( kt )            !* Construction of the elliptic system matrix