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

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

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

revision 1.24 by adcroft, Tue Jun 5 15:29:31 2001 UTC revision 1.25 by adcroft, Tue Jul 31 15:01:33 2001 UTC
# Line 37  C     == Local variables == Line 37  C     == Local variables ==
37        _RL phxFac,phyFac, psFac        _RL phxFac,phyFac, psFac
38    
39  C     Adams-Bashforth timestepping weights  C     Adams-Bashforth timestepping weights
40  Caja  IF (myIter .EQ. 0) THEN        IF (myIter .EQ. 0) THEN
41  Caja   ab15=1.0         ab15=1.0
42  Caja   ab05=0.0         ab05=0.0
43  Caja  ELSE        ELSE
44         ab15=1.5+abeps         ab15=1.5+abeps
45         ab05=-0.5-abeps         ab05=-0.5-abeps
46  Caja  ENDIF        ENDIF
47    
48  C     Step forward zonal velocity (store in Gu)  C     Step forward zonal velocity (store in Gu)
49        psFac = pfFacMom*(1. _d 0 - implicSurfPress)        psFac = pfFacMom*(1. _d 0 - implicSurfPress)
Legend:
Removed from v.1.24  
changed lines
  Added in v.1.25
  ViewVC Help
Powered by ViewVC 1.1.22