Removed unit keyword replacement for deprecated files

axis_utils/axis_utils.F90

@@ -405,7 +405,7 @@ end subroutine tranlon
   !!
   !!   @return real frac_index
   function frac_index (value, array)
-    integer :: ia, i, ii, iunit
+    integer :: ia, i, ii, unit
     real :: value !< arbitrary data...same units as elements in "array"
     real :: frac_index
     real, dimension(:) :: array !< array of data points  (must be monotonically increasing)
@@ -415,13 +415,13 @@ function frac_index (value, array)
 
     do i=2,ia
        if (array(i) < array(i-1)) then
-          iunit = stdout()
-          write (iunit,*) &
+          unit = stdout()
+          write (unit,*) &
             '=> Error: "frac_index" array must be monotonically increasing when searching for nearest value to ', value
-          write (iunit,*) '          array(i) < array(i-1) for i=',i
-          write (iunit,*) '          array(i) for i=1..ia follows:'
+          write (unit,*) '          array(i) < array(i-1) for i=',i
+          write (unit,*) '          array(i) for i=1..ia follows:'
           do ii=1,ia
-             write (iunit,*) 'i=',ii, ' array(i)=',array(ii)
+             write (unit,*) 'i=',ii, ' array(i)=',array(ii)
           enddo
           call mpp_error(FATAL,' "frac_index" array must be monotonically increasing.')
        endif
@@ -489,7 +489,7 @@ function nearest_index (value, array)
                              !! if "value" is outside the domain of "array" then nearest_index = 1
                              !! or "ia" depending on whether array(1) or array(ia) is
                              !! closest to "value"
-    Integer :: i, ii, iunit
+    Integer :: i, ii, unit
     integer :: ia !< dimension of "array"
     real :: value !< arbitrary data...same units as elements in "array"
     real, dimension(:) :: array !< array of data points  (must be monotonically increasing)
@@ -499,13 +499,13 @@ function nearest_index (value, array)
 
     do i=2,ia
        if (array(i) < array(i-1)) then
-          iunit = stdout()
-          write (iunit,*) '=> Error: "nearest_index" array must be monotonically increasing &
+          unit = stdout()
+          write (unit,*) '=> Error: "nearest_index" array must be monotonically increasing &
                          &when searching for nearest value to ',value
-          write (iunit,*) '          array(i) < array(i-1) for i=',i
-          write (iunit,*) '          array(i) for i=1..ia follows:'
+          write (unit,*) '          array(i) < array(i-1) for i=',i
+          write (unit,*) '          array(i) for i=1..ia follows:'
           do ii=1,ia
-             write (iunit,*) 'i=',ii, ' array(i)=',array(ii)
+             write (unit,*) 'i=',ii, ' array(i)=',array(ii)
           enddo
           call mpp_error(FATAL,' "nearest_index" array must be monotonically increasing.')
        endif

fms/read_data_2d.inc

@@ -35,7 +35,7 @@
 
    if (present(end)) end = .false.
 
-   if (do_read()) read (iunit,end=10) gdata
+   if (do_read()) read (unit,end=10) gdata
    if (.not.read_all_pe) then
       ! did not read on all PEs need to broadcast data
       len = size(gdata,1)*size(gdata,2)

fms/read_data_3d.inc

@@ -33,7 +33,7 @@
 
    if (present(end)) end = .false.
 
-   if (do_read()) read (iunit,end=10) gdata
+   if (do_read()) read (unit,end=10) gdata
    if (.not.read_all_pe) then
          ! did not read on all PEs need to broadcast data
       len = size(gdata,1)*size(gdata,2)*size(gdata,3)

fms/read_data_4d.inc

@@ -33,7 +33,7 @@
 
    if (present(end)) end = .false.
 
-   if (do_read()) read (iunit,end=10) gdata
+   if (do_read()) read (unit,end=10) gdata
    if (.not.read_all_pe) then
          ! did not read on all PEs need to broadcast data
       len = size(gdata,1)*size(gdata,2)*size(gdata,3)*size(gdata,4)

fms/write_data.inc

@@ -24,4 +24,4 @@
 
  ! get the global data and write only on root pe
    call mpp_global_field ( Current_domain, data, gdata )
-   if ( mpp_pe() == mpp_root_pe() ) write (iunit) gdata
+   if ( mpp_pe() == mpp_root_pe() ) write (unit) gdata

mpp/include/mpp_io_connect.inc

@@ -868,7 +868,7 @@
                deallocate(mpp_file(iunit)%var(i)%size)
                nullify(mpp_file(iunit)%var(i)%size)
             end if
-            if ( associated(mpp_file(iunit)%vzzzar(i)%Att) ) then
+            if ( associated(mpp_file(iunit)%var(i)%Att) ) then
                do j=1, mpp_file(iunit)%var(i)%natt
                   if ( associated(mpp_file(iunit)%var(i)%Att(j)%fatt) ) then
                      deallocate(mpp_file(iunit)%var(i)%Att(j)%fatt)