/[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.25 by mlosch, Thu Sep 16 09:35:10 2004 UTC revision 1.26 by heimbach, Fri Sep 17 22:57:12 2004 UTC
# Line 46  C     == Global variables === Line 46  C     == Global variables ===
46  #include "EEPARAMS.h"  #include "EEPARAMS.h"
47  #include "PARAMS.h"  #include "PARAMS.h"
48  #include "DYNVARS.h"  #include "DYNVARS.h"
 #ifdef ALLOW_PASSIVE_TRACER  
 #include "TR1.h"  
 #endif  
49    
50  #ifdef ALLOW_SHAP_FILT  #ifdef ALLOW_SHAP_FILT
51  #include "SHAP_FILT.h"  #include "SHAP_FILT.h"
# Line 122  C-        Update tracer fields:  T(n) = Line 119  C-        Update tracer fields:  T(n) =
119       I           bi,bj,iMin,iMax,jMin,jMax,K,       I           bi,bj,iMin,iMax,jMin,jMax,K,
120       U           salt,gS,gSNm1,       U           salt,gS,gSNm1,
121       I           myTime,myThid )       I           myTime,myThid )
 #ifdef ALLOW_PASSIVE_TRACER  
 ceh3 ??? should this have IF ( usePASSIVE_TRACER .AND. tr1Stepping )  
           IF (tr1Stepping)  
      &      CALL CYCLE_TRACER(  
      I           bi,bj,iMin,iMax,jMin,jMax,K,  
      U           Tr1,gTr1,gTr1Nm1,  
      I           myTime,myThid )  
 #endif  
122  #ifdef ALLOW_PTRACERS  #ifdef ALLOW_PTRACERS
123  C-        Update passive tracer fields:  T(n) = T**, Gt(n-1) = Gt(n)  C-        Update passive tracer fields:  T(n) = T**, Gt(n-1) = Gt(n)
124            IF (usePTRACERS)            IF (usePTRACERS)
Legend:
Removed from v.1.25  
changed lines
  Added in v.1.26
  ViewVC Help
Powered by ViewVC 1.1.22