1.  summary:    gx3v2 surface heat flux forcing data set

2.  created by: gokhan
 
3.  date and time: Wed Nov 21 15:40 MST 2001

4.  created on: dataproc
 
5.  dataset format: ieeer8
 
6.  endian:         big
 
7.  archival copy of this file is located at
      /CCSM/inputdata/ocn/pop/gx3v2/forcing/shf_20011121.ieeer8
 
 
8. creation summary: see program data_merge below 
 
9. derived from: 

   cp /fs/cgd/csm/inputdata/ocn/pop/gx3/forcing/shf_20011030.ieeer8 \
      shf_gx3.ieeer8

   cp /tmp/klindsay/PHC2/sst_PHC2_20011116.ieeer8 . 
 
 
10. code, scripts, namelists, etc, used to create this file:

      program data_merge

      integer recl_factor
      parameter (imt=100, jmt=116, nm=12, nd=6, recl_factor=8)

      double precision temp(imt,jmt)

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

      open (2, file='shf_gx3.ieeer8', access='direct',
     &      form='unformatted', recl=imt*jmt*recl_factor,
     &      status='old')

      open (3, file='shf_gx3v2.ieeer8', access='direct',
     &      form='unformatted', recl=imt*jmt*recl_factor,
     &      status='new')

      ic = 0
      do n=1,nm
        ic = ic + 1
        read  (1, rec=ic) temp
        write (3, rec=ic) temp
      enddo

      do m=2,nd
        do n=1,nm
          ic = ic + 1
          read  (2, rec=ic) temp
          write (3, rec=ic) temp
        enddo
      enddo

      stop
      end


     output is later renamed as shf_20011121.ieeer8 (from shf_gx3v2.ieeer8).