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

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

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

revision 1.22 by stephd, Wed Jun 25 21:06:35 2003 UTC revision 1.22.2.1 by edhill, Thu Oct 2 18:10:45 2003 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2  C Tag $Name$  C $Name$
3    
4    #include "PACKAGES_CONFIG.h"
5  #include "CPP_OPTIONS.h"  #include "CPP_OPTIONS.h"
6    
7  CBOP  CBOP
# Line 119  C-        Update tracer fields:  T(n) = Line 120  C-        Update tracer fields:  T(n) =
120       U           salt,gS,gSNm1,       U           salt,gS,gSNm1,
121       I           myTime,myThid )       I           myTime,myThid )
122  #ifdef ALLOW_PASSIVE_TRACER  #ifdef ALLOW_PASSIVE_TRACER
123    ceh3 ??? should this have IF ( usePASSIVE_TRACER .AND. tr1Stepping )
124            IF (tr1Stepping)            IF (tr1Stepping)
125       &      CALL CYCLE_TRACER(       &      CALL CYCLE_TRACER(
126       I           bi,bj,iMin,iMax,jMin,jMax,K,       I           bi,bj,iMin,iMax,jMin,jMax,K,
# Line 194  C--     for vertical velocity and "etaN" Line 196  C--     for vertical velocity and "etaN"
196          ENDIF          ENDIF
197  cswdptr -- add ---  cswdptr -- add ---
198  #ifdef ALLOW_PTRACERS  #ifdef ALLOW_PTRACERS
199    ceh3 this should have an IF ( usePTRACERS ) THEN
200            CALL PTRACERS_STATVARS(myTime, myIter, bi, bj, myThid)            CALL PTRACERS_STATVARS(myTime, myIter, bi, bj, myThid)
201  #endif  #endif
202  cswdptr -- end add ---  cswdptr -- end add ---
Legend:
Removed from v.1.22  
changed lines
  Added in v.1.22.2.1
  ViewVC Help
Powered by ViewVC 1.1.22