/[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.16 by cnh, Fri Nov 6 22:44:49 1998 UTC revision 1.17 by adcroft, Mon Aug 30 18:25:33 1999 UTC
# Line 8  C     | o Step model fields forward in t Line 8  C     | o Step model fields forward in t
8  C     \==========================================================/  C     \==========================================================/
9        SUBROUTINE TIMESTEP( bi, bj, iMin, iMax, jMin, jMax,        SUBROUTINE TIMESTEP( bi, bj, iMin, iMax, jMin, jMax,
10       I                     K,       I                     K,
11       I                     myThid )       I                     myIter, myThid )
12        implicit none        implicit none
13  ! Common  ! Common
14  #include "SIZE.h"  #include "SIZE.h"
# Line 19  C     \================================= Line 19  C     \=================================
19  C     == Routine Arguments ==  C     == Routine Arguments ==
20        INTEGER bi,bj,iMin,iMax,jMin,jMax        INTEGER bi,bj,iMin,iMax,jMin,jMax
21        INTEGER K        INTEGER K
22        INTEGER myThid        INTEGER myIter, myThid
23  C     == Local variables ==  C     == Local variables ==
24        INTEGER i,j        INTEGER i,j
25        _RL ab15,ab05        _RL ab15,ab05
26    
27  C     Adams-Bashforth timestepping weights  C     Adams-Bashforth timestepping weights
28        ab15=1.5+abeps  Caja  IF (myIter .EQ. 0) THEN
29        ab05=-0.5-abeps  Caja   ab15=1.0
30    Caja   ab05=0.0
31    Caja  ELSE
32           ab15=1.5+abeps
33           ab05=-0.5-abeps
34    Caja  ENDIF
35    
36  C     Step forward zonal velocity (store in Gu)  C     Step forward zonal velocity (store in Gu)
37         DO j=jMin,jMax         DO j=jMin,jMax
Legend:
Removed from v.1.16  
changed lines
  Added in v.1.17
  ViewVC Help
Powered by ViewVC 1.1.22