1.  summary:            gx3 surface fresh water flux

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

4.  created on:         dataproc?
 
5.  dataset format:     ieeer8
 
6.  endian:             big
 
7.  archival copy location:
    /CCSM/inputdata/ocn/pop/gx3/forcing/sfwf_20011030.ieeer8
 
8.  creation summary: 
     merged 
     /GOKHAN/POP/INPUTDATA/100x116x25/sfwf_mm_sss_pmax_flxio.ieeed 
     /fs/cgd/data0/klindsay/PHC2/PHC2_salx_gx3.ieeed 
     using program data_merge (below)
 
9.  names of other datasets used to create this file:
    /GOKHAN/POP/INPUTDATA/100x116x25/sfwf_mm_sss_pmax_flxio.ieeed 
    /fs/cgd/data0/klindsay/PHC2/PHC2_salx_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=2, recl_factor=8)

      double precision temp(imt,jmt)

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

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

      open (3, file='sfwf_gx3.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
--------------------------------------------------------------------
 
History:
 Gokhan:
  Tue Oct 30 15:59:30 MST 2001
  msrcp mss:/GOKHAN/POP/INPUTDATA/100x116x25/sfwf_mm_sss_pmax_flxio.ieeed sfwf_mm_sss_pmax_flxio.ieeed 
  cp /fs/cgd/data0/klindsay/PHC2/PHC2_salx_gx3.ieeed .
  ran data_merge
 njn01:
  cp sfwf_gx3.ieeed* /fs/cgd/csm/inputdata/ocn/pop/gx3/forcing
  mv sfwf_gx3.ieeed sfwf_20011030.ieeer8
  mv sfwf_gx3.ieeed.README sfwf_20011030.readme