Changeset 3358 for branches/2012/dev_r3322_NOCS09_SAS/NEMOGCM/NEMO/SAS_SRC/stpctl.F90

Timestamp:

2012-04-17T09:03:26+02:00 (12 years ago)

Author:

sga

Message:

NEMO branch dev_r3322_NOCS09_SAS: remove redundant variables

File:

• branches/2012/dev_r3322_NOCS09_SAS/NEMOGCM/NEMO/SAS_SRC/stpctl.F90 (modified) (1 diff)

branches/2012/dev_r3322_NOCS09_SAS/NEMOGCM/NEMO/SAS_SRC/stpctl.F90

@@ -48 +48 @@
       INTEGER, INTENT( in ) ::   kt         ! ocean time-step index
       INTEGER, INTENT( inout ) ::   kindic  ! indicator of solver convergence
-      !!
-      INTEGER  ::   ji, jj, jk              ! dummy loop indices
-      INTEGER  ::   ii, ij, ik              ! temporary integers
-      REAL(wp) ::   zumax, zsmin, zssh2     ! temporary scalars
-      INTEGER, DIMENSION(3) ::   ilocu      ! 
-      INTEGER, DIMENSION(2) ::   ilocs      ! 
       !!----------------------------------------------------------------------