/[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.2 by jmc, Thu Jul 12 00:31:59 2001 UTC revision 1.3 by adcroft, Tue Jul 31 15:01:33 2001 UTC
# Line 32  C     == Local variables == Line 32  C     == Local variables ==
32        _RL ab15,ab05        _RL ab15,ab05
33    
34  C     Adams-Bashforth timestepping weights  C     Adams-Bashforth timestepping weights
35        ab15 = 1.+ tauAB        IF (myIter .EQ. 0) THEN
36        ab05 = -tauAB         ab15=1.0
37           ab05=0.0
38          ELSE
39           ab15=1.+tauAB
40           ab05=-tauAB
41          ENDIF
42    
43  C     Step forward temperature  C     Step forward temperature
44        IF ( gad_advection_scheme.EQ.ENUM_CENTERED_2ND        IF ( gad_advection_scheme.EQ.ENUM_CENTERED_2ND
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22