Changeset 1556 for trunk/NEMO/OPA_SRC/SOL/solver.F90

Timestamp:

2009-07-29T12:51:45+02:00 (15 years ago)

Author:

rblod

Message:

Suppress FETI solver, see ticket #502

File:

• trunk/NEMO/OPA_SRC/SOL/solver.F90 (modified) (3 diffs)

trunk/NEMO/OPA_SRC/SOL/solver.F90

@@ -87 +87 @@
       READ  ( numnam, namsol )
 
-#if defined key_feti
-      ! FETI algorithm, we force nsolv at 3
-      nsolv = 3
-#endif
-
       ! 0. Parameter control and print
       !    ---------------------------
@@ -137 +132 @@
          ENDIF
 
-      CASE ( 3 )                ! FETI solver
-         IF(lwp) WRITE(numout,*) '          the FETI solver is used'
-         IF( jpr2di /= 0 .AND. jpr2dj /= 0 ) &
-              CALL ctl_stop( ' jpr2di and jpr2dj should be equal to zero' )
-           
-         IF( .NOT.lk_mpp ) THEN
-            CALL ctl_stop( ' The FETI algorithm is used only with the key_mpp_... option' )
-         ELSE
-            IF( jpnij == 1 ) THEN
-               CALL ctl_stop( ' The FETI algorithm needs more than one processor' )
-            ENDIF
-         ENDIF
-         
       CASE DEFAULT
          WRITE(ctmp1,*) '          bad flag value for nsolv = ', nsolv
@@ -177 +159 @@
 
       CALL sol_mat( kt )
-
+      !
    END SUBROUTINE solver_init