1.  summary:

    region mask array for the gx3v2 grid 

2.  created by: gokhan

3.  date and time: Thu Nov 15 14:34 MST 2001

4.  created on: dataproc

5.  dataset format: ieeei4

6.  if ieee, big endian or little endian? big

7.  archival copy of this file is located at
    
    /CCSM/inputdata/ocn/pop/gx3v2/grid/region_mask_20011115.ieeei4
    
    (mss write password = "rusure")
    

8. creation summary:

    copied code with path name given in #9, then used the code
    given in #10. Finally moved the output file into 
    region_mask_20011115.ieeei4.

9. derived from: 

      /fs/cgd/csm/inputdata/ocn/pop/gx3/grid/region_mask_20001030.ieeei4

10. code, scripts, namelists, etc, used to create this file:

      program region

      integer recl_factor
      parameter (imt=100, jmt=116, recl_factor=4)

      integer temp(imt,jmt)

      open (1, file='region_mask_20001030.ieeei4', access='direct',
     &      form='unformatted', recl=imt*jmt*recl_factor,
     &      status='old')

      open (2, file='region_mask_gx3v2.ieeei4', access='direct',
     &      form='unformatted', recl=imt*jmt*recl_factor,
     &      status='new')

      ic = 1
      read  (1, rec=ic) temp

!     Hudson Bay

      do i=1,imt
        do j=1,jmt
          if ( temp(i,j) == -11 )  temp(i,j) = 11
        enddo
      enddo

!     James Bay

      temp(87,100) = 11

!     Hudson Strait

      temp(90,106) = 11
      temp(90,107) = 11
      temp(91,107) =  8

!     Borneo--Sumatra

      temp(41:42,53:58) = 2
      temp(41:44,52   ) = 2
      temp(41,   51   ) = 3

      ic = 1
      write (2, rec=ic) temp

      stop
      end