/[MITgcm]/MITgcm/model/src/ini_tr1.F
ViewVC logotype

Diff of /MITgcm/model/src/ini_tr1.F

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

revision 1.3 by jmc, Thu Jul 18 23:17:37 2002 UTC revision 1.4 by edhill, Thu Oct 9 04:19:18 2003 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2  C $Name$  C $Name$
3    
4    #include "PACKAGES_CONFIG.h"
5  #include "CPP_OPTIONS.h"  #include "CPP_OPTIONS.h"
6    
7  CBOP  CBOP
# Line 55  CEOP Line 56  CEOP
56    
57        _BARRIER        _BARRIER
58    
59    ceh3 this perhaps needs an IF ( usePASSIVE_TRACER ) THEN
60    
61  C--   Initialise tracer to inline.  C--   Initialise tracer to inline.
62        DO bj = myByLo(myThid), myByHi(myThid)        DO bj = myByLo(myThid), myByHi(myThid)
63         DO bi = myBxLo(myThid), myBxHi(myThid)         DO bi = myBxLo(myThid), myBxHi(myThid)
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22