Changeset 4423 for branches/2011/DEV_r2739_STFC_dCSE

Timestamp:

2014-02-04T13:13:37+01:00 (10 years ago)

Author:

trackstand2

Message:

Remove unused vars from nemogcm

File:

• branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90 (modified) (2 diffs)

branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90

@@ -629 +629 @@
       ! Local vars
       INTEGER :: ierr                          ! Error flag
-      INTEGER :: inum                          ! temporary logical unit
-      INTEGER :: ii,jj,iproc                   ! Loop index
+      INTEGER :: ii,jj                         ! Loop index
       CHARACTER(LEN=8) :: lstr                 ! Local string for reading env. var.
       INTEGER          :: lztrim               ! Local int for      "      "    "
@@ -897 +896 @@
       INTEGER, DIMENSION(jpiglo,jpjglo), INTENT(inout) :: imask
       ! Locals
-      INTEGER :: ii, jj
+      INTEGER :: jj
       INTEGER :: icentre, jcentre
       INTEGER :: iwidth, iheight