/[MITgcm]/MITgcm/pkg/generic_advdiff/timestep_tracer.F
ViewVC logotype

Diff of /MITgcm/pkg/generic_advdiff/timestep_tracer.F

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

revision 1.1 by adcroft, Wed May 30 19:34:48 2001 UTC revision 1.2 by jmc, Thu Jul 12 00:31:59 2001 UTC
# Line 36  C     Adams-Bashforth timestepping weigh Line 36  C     Adams-Bashforth timestepping weigh
36        ab05 = -tauAB        ab05 = -tauAB
37    
38  C     Step forward temperature  C     Step forward temperature
39        IF (gad_advection_scheme.EQ.ENUM_CENTERED_2ND        IF ( gad_advection_scheme.EQ.ENUM_CENTERED_2ND
40       &.OR.gad_advection_scheme.EQ.ENUM_CENTERED_4TH) THEN       & .OR.gad_advection_scheme.EQ.ENUM_UPWIND_3RD
41         & .OR.gad_advection_scheme.EQ.ENUM_CENTERED_4TH ) THEN
42         DO j=jMin,jMax         DO j=jMin,jMax
43          DO i=iMin,iMax          DO i=iMin,iMax
44            gTrNm1(i,j,k,bi,bj)=tracer(i,j,k,bi,bj)            gTrNm1(i,j,k,bi,bj)=tracer(i,j,k,bi,bj)
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22