/[MITgcm]/MITgcm/pkg/flt/flt_traj.F
ViewVC logotype

Diff of /MITgcm/pkg/flt/flt_traj.F

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

revision 1.8 by jmc, Fri Feb 13 04:22:22 2009 UTC revision 1.9 by jmc, Tue Sep 1 19:32:27 2009 UTC
# Line 44  C     == local variables == Line 44  C     == local variables ==
44        INTEGER ioUnit, irecord        INTEGER ioUnit, irecord
45        _RL tmp(imax)        _RL tmp(imax)
46        _RL npart_read,npart_times        _RL npart_read,npart_times
47          _RS dummyRS(1)
48        CHARACTER*(MAX_LEN_FNAM) fn        CHARACTER*(MAX_LEN_FNAM) fn
49        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
50        CHARACTER*(80) dataFName        CHARACTER*(80) dataFName
# Line 97  C total number of floats Line 98  C total number of floats
98    
99           ioUnit = -1           ioUnit = -1
100           CALL MDS_WRITEVEC_LOC( fn, precFloat64, ioUnit,           CALL MDS_WRITEVEC_LOC( fn, precFloat64, ioUnit,
101       &                          'RL', imax, tmp,       &                          'RL', imax, tmp, dummyRS,
102       &                           bi,bj,-1, myIter, myThid )       &                           bi,bj,-1, myIter, myThid )
103    
104           i0x = DFLOAT( myXGlobalLo-1 + (bi-1)*sNx )           i0x = DFLOAT( myXGlobalLo-1 + (bi-1)*sNx )
# Line 161  C (3) WRITE float positions into file Line 162  C (3) WRITE float positions into file
162              irecord = npart_read+ip+1              irecord = npart_read+ip+1
163              IF ( ip.NE.npart_tile(bi,bj) ) irecord = -irecord              IF ( ip.NE.npart_tile(bi,bj) ) irecord = -irecord
164              CALL MDS_WRITEVEC_LOC( fn, precFloat64, ioUnit,              CALL MDS_WRITEVEC_LOC( fn, precFloat64, ioUnit,
165       &                            'RL', imax, tmp,       &                            'RL', imax, tmp, dummyRS,
166       &                             bi,bj,irecord, myIter, myThid )       &                             bi,bj,irecord, myIter, myThid )
167    
168           ENDDO           ENDDO
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22