/[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.2 by jmc, Wed Dec 3 01:37:45 2008 UTC revision 1.3 by jmc, Sun Jan 4 00:58:23 2009 UTC
# Line 5  C $Name$ Line 5  C $Name$
5    
6    
7        SUBROUTINE FLT_TRAJ (        SUBROUTINE FLT_TRAJ (
8       I                     myIter,       I                      myTime, myIter, myThid )
      I                     myTime,  
      I                     myThid  
      &                     )  
9    
10  C     ==================================================================  C     ==================================================================
11  C     SUBROUTINE FLT_TRAJ  C     SUBROUTINE FLT_TRAJ
# Line 34  c#include "UNITS.h" Line 31  c#include "UNITS.h"
31    
32  C     == routine arguments ==  C     == routine arguments ==
33    
       INTEGER myIter, myThid  
34        _RL myTime        _RL myTime
35        INTEGER bi, bj, imax        INTEGER myIter, myThid
       PARAMETER (imax=10)  
36    
37  C     == local variables ==  C     == local variables ==
38          INTEGER bi, bj, imax
39          PARAMETER (imax=10)
40    
41        INTEGER ip, kp, ii        INTEGER ip, kp, ii
42        _RL xx, yy, xlo, xhi, ylo, yhi        _RL xx, yy
43        _RL uu,vv,ww,tt,ss, pp        _RL uu,vv,tt,ss, pp
44        _RL global2local_i        _RL global2local_i
45        _RL global2local_j        _RL global2local_j
46    
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22