1.  summary:                gx3 surface heat flux

2.  created by:             gokhan
 
3.  date and time:          Oct 30 2001 15:43

4.  created on:             dataproc?
                         
5.  dataset format:         ieeer8
 
6   endian:                 big
 
7.  archival copy location:
    /CCSM/inputdata/ocn/pop/gx3/forcing/shf_20011030.ieeer8
 
8.  creation summary:
    see program data_merge below
 
9.  names of other datasets used to create this file:
     /NJN01/POP/INPUTDATA/100x116x25/GREENLAND/shf_mm_all_85-88.ieeed 
     /fs/cgd/data0/klindsay/PHC2/PHC2_sst_gx3.ieeed  .
 
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='PHC2_sst_gx3.ieeed', access='direct',
     &      form='unformatted', recl=imt*jmt*recl_factor,
     &      status='old')

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

      open (3, file='shf.ieeed', 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_gx3.ieeed (from shf.ieeed).
----------------------------------------------------------------
History:
 gokhan:
  Tue Oct 30 15:52:50 MST 2001
  msrcp mss:/NJN01/POP/INPUTDATA/100x116x25/GREENLAND/shf_mm_all_85-88.ieeed shf_gx3.ieeed 
  cp /fs/cgd/data0/klindsay/PHC2/PHC2_sst_gx3.ieeed .

 njn01:
  Thu Nov 15 2001
    cp shf_gx3.ieeed* /fs/cgd/csm/inputdata/ocn/pop/gx3/forcing
    13:32   mv shf_gx3.ieeed shf_20011030.ieeer8
    13:32   mv shf_gx3.ieeed.README shf_20011030.readme