Changeset 2528 for trunk/NEMOGCM/NEMO/OPA_SRC/SOL/solver.F90
- Timestamp:
- 2010-12-27T18:33:53+01:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/OPA_SRC/SOL/solver.F90
- Property svn:eol-style deleted
r1601 r2528 31 31 32 32 !!---------------------------------------------------------------------- 33 !! NEMO/OPA 9.0 , LOCEAN-IPSL (2009)33 !! NEMO/OPA 3.3 , NEMO Consortium (2010) 34 34 !! $Id$ 35 !! Software governed by the CeCILL licence ( modipsl/doc/NEMO_CeCILL.txt)35 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 36 36 !!---------------------------------------------------------------------- 37 37 … … 102 102 END SELECT 103 103 ! 104 IF( nbit_cmp == 1 ) THEN ! reproductibility test SOR required105 IF( nn_solv /= 2 ) THEN106 CALL ctl_stop( ' Reproductibility tests (nbit_cmp=1) require the SOR solver: nn_solv = 2' )107 ELSE IF( MAX( jpr2di, jpr2dj ) > 0 ) THEN108 CALL ctl_stop( ' Reproductibility tests (nbit_cmp=1) require jpr2di = jpr2dj = 0' )109 END IF110 END IF111 104 112 105 ! !* Grid-point at which the solver is applied 113 106 !!gm c_solver_pt should be removed: nomore bsf, only T-point is used 114 IF( lk_mpp ) THEN ; c_solver_pt = 'S' ! S=T with special staff ??? which one? 115 ELSE ; c_solver_pt = 'T' 116 ENDIF 107 c_solver_pt = 'T' ! always T-point (ssh solver only, not anymore bsf) 117 108 118 109 CALL sol_mat( kt ) !* Construction of the elliptic system matrix
Note: See TracChangeset
for help on using the changeset viewer.