Changeset 1528 for trunk/NEMO/OPA_SRC/stpctl.F90

Timestamp:

2009-07-23T16:38:47+02:00 (15 years ago)

Author:

rblod

Message:

Suppress rigid-lid option, see ticket #486

File:

• trunk/NEMO/OPA_SRC/stpctl.F90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/stpctl.F90

@@ -18 +18 @@
    USE sol_oce         ! ocean space and time domain variables 
    USE in_out_manager  ! I/O manager
-   USE solisl          ! ???
    USE diawri          ! ocean output file 
    USE lbclnk          ! ocean lateral boundary conditions (or mpp link)
@@ -151 +150 @@
       ! log file (solver or ssh statistics)
       ! --------
-      IF( lk_dynspg_flt .OR. lk_dynspg_rl ) THEN      ! elliptic solver statistics (if required)
+      IF( lk_dynspg_flt ) THEN      ! elliptic solver statistics (if required)
          !
          IF(lwp) WRITE(numsol,9200) kt, niter, res, SQRT(epsr)/eps      ! Solver
-         !
-         IF( lk_isl )   CALL isl_stp_ctl( kt, kindic )                  ! Islands (if exist)
          !
          IF( kindic < 0 ) THEN                                          ! create a abort file if problem found