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

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

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

revision 1.7 by adcroft, Wed Sep 19 02:43:27 2001 UTC revision 1.8 by cnh, Wed Sep 26 18:09:16 2001 UTC
# Line 3  C $Name$ Line 3  C $Name$
3    
4  #include "CPP_OPTIONS.h"  #include "CPP_OPTIONS.h"
5    
6    CBOP
7    C     !ROUTINE: TIMESTEP_TRACER
8    C     !INTERFACE:
9        SUBROUTINE TIMESTEP_TRACER(        SUBROUTINE TIMESTEP_TRACER(
10       I                     bi, bj, iMin, iMax, jMin, jMax, K,       I                     bi, bj, iMin, iMax, jMin, jMax, K,
11       I                     advection_scheme,       I                     advection_scheme,
12       I                     tracer, gTracer,       I                     tracer, gTracer,
13       O                     gTrNm1,       O                     gTrNm1,
14       I                     myIter, myThid )       I                     myIter, myThid )
15  C     /==========================================================\  C     !DESCRIPTION: \bv
16  C     | S/R TIMESTEP_TRACER                                      |  C     *==========================================================*
17  C     | o Step model tracer field forward in time                |  C     | S/R TIMESTEP_TRACER                                      
18  C     \==========================================================/  C     | o Step model tracer field forward in time                
19        IMPLICIT NONE  C     *==========================================================*
20    C     \ev
21    
22    C     !USES:
23          IMPLICIT NONE
24  C     == Global variables ===  C     == Global variables ===
25  #include "SIZE.h"  #include "SIZE.h"
26  #include "EEPARAMS.h"  #include "EEPARAMS.h"
# Line 23  C     == Global variables === Line 29  C     == Global variables ===
29  #include "GRID.h"  #include "GRID.h"
30  #include "SURFACE.h"  #include "SURFACE.h"
31    
32    C     !INPUT/OUTPUT PARAMETERS:
33  C     == Routine Arguments ==  C     == Routine Arguments ==
34        INTEGER bi,bj,iMin,iMax,jMin,jMax,K        INTEGER bi,bj,iMin,iMax,jMin,jMax,K
35        INTEGER advection_scheme        INTEGER advection_scheme
# Line 30  C     == Routine Arguments == Line 37  C     == Routine Arguments ==
37        _RL  gTracer(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)        _RL  gTracer(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
38        _RL  gTrNm1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)        _RL  gTrNm1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
39        INTEGER myIter, myThid        INTEGER myIter, myThid
40    
41    C     !LOCAL VARIABLES:
42  C     == Local variables ==  C     == Local variables ==
43        INTEGER i,j        INTEGER i,j
44        _RL ab15,ab05        _RL ab15,ab05
45        _RL gTrtmp(1-OLx:sNx+OLx,1-OLy:sNy+OLy)        _RL gTrtmp(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
46    CEOP
47    
48  C     Adams-Bashforth timestepping weights  C     Adams-Bashforth timestepping weights
49        IF (myIter .EQ. 0) THEN        IF (myIter .EQ. 0) THEN
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22