C NCLFORTSTART
      subroutine write_header(fname, south, north, west, east,      
     &                        d_lon, d_lat, n_lat, n_lon, icode)
      implicit none
!
!-----------------------------------------------------------------------
!     Imported variable declarations 
!-----------------------------------------------------------------------
!
      integer n_lat, n_lon, icode
      real south, north, west, east, d_lon, d_lat
      character*(*) fname
C NCLEND
!
!-----------------------------------------------------------------------
!     Open file 
!-----------------------------------------------------------------------
!
      open(unit=11, file=trim(fname), form="formatted",
     &     access="sequential")
!
!-----------------------------------------------------------------------
!     Write header 
!-----------------------------------------------------------------------
!
      write(unit=11, fmt='(6F10.5,3I3)') south, north, west, east,
     &                           d_lon, d_lat, n_lat, n_lon, icode 
!
!-----------------------------------------------------------------------
!     Close file 
!-----------------------------------------------------------------------
!
!      close(unit=11)
!
      return
      end subroutine write_header

C NCLFORTSTART
      subroutine write_uv(fname, cdtwir, n_lat, n_lon, u_map, v_map) 
      implicit none
!
!-----------------------------------------------------------------------
!     Imported variable declarations 
!-----------------------------------------------------------------------
!
      character*(*) fname
      character*(*) cdtwir 
      integer n_lat, n_lon
      real u_map(n_lon,n_lat), v_map(n_lon,n_lat) 
C NCLEND
!
!-----------------------------------------------------------------------
!     Local variable declarations 
!-----------------------------------------------------------------------
!
      integer i, j
!
!-----------------------------------------------------------------------
!     Open file 
!-----------------------------------------------------------------------
!
      open(unit=11, file=trim(fname), form="formatted",
     &     access="sequential")
!
!-----------------------------------------------------------------------
!     Write data 
!-----------------------------------------------------------------------
!
      write(11,fmt='(A14)') trim(cdtwir)
      do j = 1, n_lat
        write(unit=11, fmt='(8F10.3)') u_map(1:n_lon,j)
      end do
      do j = 1, n_lat
        write(unit=11, fmt='(8F10.3)') v_map(1:n_lon,j)
      end do
!
      end subroutine write_uv