/[MITgcm]/MITgcm/pkg/fizhi/update_ocean_exports.F
ViewVC logotype

Diff of /MITgcm/pkg/fizhi/update_ocean_exports.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.6 by molod, Thu Jun 10 20:17:17 2004 UTC revision 1.7 by molod, Thu Jun 10 20:53:19 2004 UTC
# Line 112  C Line 112  C
112  C--------------------------------------------------------------------------  C--------------------------------------------------------------------------
113    
114        implicit none        implicit none
115  #include "CPP_OPTIONS.h"  #include "CPP_EEOPTIONS.h"
116    
117        integer iunit,idim1,idim2,jdim1,jdim2,im1,im2,jm1,jm2,nSx,nSy        integer iunit,idim1,idim2,jdim1,jdim2,im1,im2,jm1,jm2,nSx,nSy
118        integer bi,bj,biglobal.bjglobal,nymd,nhms        integer bi,bj,biglobal.bjglobal,nymd,nhms
# Line 357  C Line 357  C
357  C--------------------------------------------------------------------------  C--------------------------------------------------------------------------
358    
359        implicit none        implicit none
360  #include "CPP_OPTIONS.h"  #include "CPP_EEOPTIONS.h"
361    
362        integer iunit,idim1,idim2,jdim1,jdim2,im1,im2,jm1,jm2,nSx,nSy        integer iunit,idim1,idim2,jdim1,jdim2,im1,im2,jm1,jm2,nSx,nSy
363        integer bi,bj,biglobal.bjglobal,nymd,nhms        integer bi,bj,biglobal.bjglobal,nymd,nhms
# Line 566  C!      field2(im,jm,nPx,nPy)  data fiel Line 566  C!      field2(im,jm,nPx,nPy)  data fiel
566  C  C
567  C--------------------------------------------------------------------------  C--------------------------------------------------------------------------
568        implicit none        implicit none
569  #include "CPP_OPTIONS.h"  #include "CPP_EEOPTIONS.h"
570    
571        integer iunit,im,jm,nPx,nPy,nrec1,nrec2        integer iunit,im,jm,nPx,nPy,nrec1,nrec2
572    
# Line 623  C!      error         logical TRUE if da Line 623  C!      error         logical TRUE if da
623  C  C
624  C--------------------------------------------------------------------------  C--------------------------------------------------------------------------
625        implicit none        implicit none
626  #include "CPP_OPTIONS.h"  #include "CPP_EEOPTIONS.h"
627    
628        integer iunit, ndmax, nrec        integer iunit, ndmax, nrec
629    
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22