Changeset 531 for trunk/NEMO/OPA_SRC/SOL/solver.F90
- Timestamp:
- 2006-10-19T14:55:25+02:00 (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/SOL/solver.F90
r474 r531 108 108 #endif 109 109 110 111 110 ! 0. Parameter control and print 112 111 ! --------------------------- … … 187 186 END SELECT 188 187 188 IF( nbit_cmp == 1 .AND. nsolv /= 2 ) THEN 189 CALL ctl_stop( ' Reproductibility tests (nbit_cmp=1) require the SOR solver: nsolv = 2' ) 190 END IF 191 189 192 ! Grid-point at which the solver is applied 190 193 ! -----------------------------------------
Note: See TracChangeset
for help on using the changeset viewer.