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

Timestamp:

2009-07-31T16:34:08+02:00 (15 years ago)

Author:

rblod

Message:

Cosmetic changes: suppress useless variables and code review of the code changed when suppressing rigid-lid, see ticket #508

File:

• trunk/NEMO/OPA_SRC/stpctl.F90 (modified) (1 diff)

trunk/NEMO/OPA_SRC/stpctl.F90

@@ -145 +145 @@
       IF( lk_dynspg_flt ) THEN      ! elliptic solver statistics (if required)
          !
-         IF(lwp) WRITE(numsol,9200) kt, niter, res, SQRT(epsr)/eps      ! Solver
+         IF(lwp) WRITE(numsol,9200) kt, niter, res, SQRT(epsr)/eps       ! Solver
          !
-         IF( kindic < 0 .AND. zsmin > 0.e0 .AND. zumax <= 20.e0 ) THEN                                          ! create a abort file if problem found 
+         IF( kindic < 0 .AND. zsmin > 0.e0 .AND. zumax <= 20.e0 ) THEN   ! create a abort file if problem found 
             IF(lwp) THEN
                WRITE(numout,*) ' stpctl: the elliptic solver DO not converge or explode'