/[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.11 by molod, Mon Jul 19 22:06:59 2004 UTC revision 1.12 by molod, Tue Jul 20 16:24:49 2004 UTC
# Line 570  C!      field2(im,jm,nPx,nPy)  data fiel Line 570  C!      field2(im,jm,nPx,nPy)  data fiel
570  C  C
571  C--------------------------------------------------------------------------  C--------------------------------------------------------------------------
572        implicit none        implicit none
573    #include "PACKAGES_CONFIG.h"
574  #include "CPP_EEOPTIONS.h"  #include "CPP_EEOPTIONS.h"
575    
576        integer iunit,im,jm,nPx,nPy,nrec1,nrec2        integer iunit,im,jm,nPx,nPy,nrec1,nrec2
# Line 586  C--------- Read file ------------------- Line 587  C--------- Read file -------------------
587    
588        do n2=1,nPy        do n2=1,nPy
589        do n1=1,nPx        do n1=1,nPx
590    #ifdef _BYTESWAPIO
591          call MDS_BYTESWAPR4( im*jm, f1(1,1,n1,n2))
592          call MDS_BYTESWAPR4( im*jm, f2(1,1,n1,n2))
593    #endif
594        do j=1,jm        do j=1,jm
595        do i=1,im        do i=1,im
596         field1(i,j,n1,n2) = f1(i,j,n1,n2)         field1(i,j,n1,n2) = f1(i,j,n1,n2)
# Line 627  C!      error         logical TRUE if da Line 632  C!      error         logical TRUE if da
632  C  C
633  C--------------------------------------------------------------------------  C--------------------------------------------------------------------------
634        implicit none        implicit none
635    #include "PACKAGES_CONFIG.h"
636  #include "CPP_EEOPTIONS.h"  #include "CPP_EEOPTIONS.h"
637    
638        integer iunit, ndmax, nrec        integer iunit, ndmax, nrec
# Line 648  C--------- Read file ------------------- Line 654  C--------- Read file -------------------
654       .     im_32, jm_32, npx_32, npy_32, lat0_32, lon0_32,       .     im_32, jm_32, npx_32, npy_32, lat0_32, lon0_32,
655       .     ndatebc_32, undef_32,       .     ndatebc_32, undef_32,
656       .     (nymdbc_32(i), nhmsbc_32(i), i=1,ndatebc_32)       .     (nymdbc_32(i), nhmsbc_32(i), i=1,ndatebc_32)
657    #ifdef _BYTESWAPIO
658          call MDS_BYTESWAPR4( 1, lat0_32)
659          call MDS_BYTESWAPR4( 1, lon0_32)
660          call MDS_BYTESWAPR4( 1, undef_32)
661    #endif
662    
663        im = im_32        im = im_32
664        jm = jm_32        jm = jm_32
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12
  ViewVC Help
Powered by ViewVC 1.1.22