avoid one more un-used var

MITgcm · Jan 1, 2022 · d1cea20 · d1cea20
1 parent 2ceeb89
commit d1cea20
Showing 1 changed file with 6 additions and 4 deletions.
diff --git a/pkg/ctrl/ctrl_unpack.F b/pkg/ctrl/ctrl_unpack.F
@@ -83,7 +83,6 @@ subroutine ctrl_unpack( first, mythid )
       integer cunit
       logical lxxadxx
       character*(128) cfile
-      character*( 80) weighttype
 
 #if (defined ALLOW_GENARR2D_CONTROL) || (defined ALLOW_GENARR3D_CONTROL) || (defined ALLOW_GENTIM2D_CONTROL)
 C-    Provided we set the file name just before calling ctrl_set_unpack,
@@ -143,6 +142,9 @@ subroutine ctrl_unpack( first, mythid )
       character*( 80)   fname_shifwflx(3)
 #endif /* ECCO_CTRL_DEPRECATED */
 
+#if (defined ALLOW_OBCS || defined ECCO_CTRL_DEPRECATED)
+      character*(80) weighttype
+#endif
 #if (defined (ALLOW_CTRL) && defined (ALLOW_OBCS))
       character*(80) fname_obcsn(3)
       character*(80) fname_obcss(3)
@@ -318,9 +320,9 @@ subroutine ctrl_unpack( first, mythid )
              print *, 'WARNING: wrong nvarlength ',
      &            filenvarlength, nvarlength
              STOP 'in S/R ctrl_unpack'
-          else if ( filensx .NE. nsx .OR. filensy .NE. nsy ) then
-             print *, 'WARNING: wrong nsx or nsy ',
-     &            filensx, nsx, filensy, nsy
+          else if ( filensx .NE. nSx .OR. filensy .NE. nSy ) then
+             print *, 'WARNING: wrong nSx or nSy ',
+     &            filensx, nSx, filensy, nSy
              STOP 'in S/R ctrl_unpack'
           endif
           do k = 1, nr