/[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.11 by heimbach, Fri Jul 13 14:26:57 2001 UTC revision 1.12 by heimbach, Mon Jul 30 20:23:09 2001 UTC
# Line 27  C     == Global variables === Line 27  C     == Global variables ===
27  #include "EEPARAMS.h"  #include "EEPARAMS.h"
28  #include "PARAMS.h"  #include "PARAMS.h"
29  #include "DYNVARS.h"  #include "DYNVARS.h"
30    #ifdef ALLOW_PASSIVE_TRACER
31  #include "TR1.h"  #include "TR1.h"
32    #endif
33    
34  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
35  #include "tamc.h"  #include "tamc.h"
# Line 127  C-        Update tracer fields:  T(n) = Line 129  C-        Update tracer fields:  T(n) =
129       I           bi,bj,iMin,iMax,jMin,jMax,K,       I           bi,bj,iMin,iMax,jMin,jMax,K,
130       U           salt,gS,gSNm1,       U           salt,gS,gSNm1,
131       I           myTime,myThid )       I           myTime,myThid )
132    #ifdef ALLOW_PASSIVE_TRACER
133            IF (tr1Stepping)            IF (tr1Stepping)
134       &      CALL CYCLE_TRACER(       &      CALL CYCLE_TRACER(
135       I           bi,bj,iMin,iMax,jMin,jMax,K,       I           bi,bj,iMin,iMax,jMin,jMax,K,
136       U           Tr1,gTr1,gTr1Nm1,       U           Tr1,gTr1,gTr1Nm1,
137       I           myTime,myThid )       I           myTime,myThid )
138    #endif
139    
140  #ifdef    ALLOW_OBCS  #ifdef    ALLOW_OBCS
141  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12
  ViewVC Help
Powered by ViewVC 1.1.22