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

Contents of /MITgcm/model/src/cycle_tracer.F

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

Revision 1.9 - (show annotations) (download)
Thu Aug 14 16:49:19 2014 UTC (9 years, 10 months ago) by jmc
Branch: MAIN
CVS Tags: checkpoint65z, checkpoint65x, checkpoint65y, checkpoint65r, checkpoint65s, checkpoint65p, checkpoint65q, checkpoint65v, checkpoint65w, checkpoint65t, checkpoint65u, checkpoint65j, checkpoint65k, checkpoint65h, checkpoint65i, checkpoint65n, checkpoint65l, checkpoint65m, checkpoint65c, checkpoint65f, checkpoint65g, checkpoint65d, checkpoint65e, checkpoint66g, checkpoint66f, checkpoint66e, checkpoint66d, checkpoint66c, checkpoint66b, checkpoint66a, checkpoint66o, checkpoint66n, checkpoint66m, checkpoint66l, checkpoint66k, checkpoint66j, checkpoint66i, checkpoint66h, checkpoint65o, HEAD
Changes since 1.8: +12 -14 lines 
change gTracer (and/or tracer) argument (drop bi,bj indices) in S/R
  ADAMS_BASHFORTH(2&3), CYCLE_TRACER, CYCLE_AB_TRACER, FREESURF_RESCALE_G,
  IMPLDIFF, SOLVE_TRIDIAGONAL & SOLVE_PENTADIAGONAL
1 C $Header: /u/gcmpack/MITgcm/model/src/cycle_tracer.F,v 1.8 2007/01/09 21:50:25 jmc Exp $
2 C $Name: $
3
4 #include "CPP_OPTIONS.h"
5
6 CBOP
7 C !ROUTINE: CYCLE_TRACER
8 C !INTERFACE:
9 SUBROUTINE CYCLE_TRACER(
10 I bi, bj,
11 U tracer, gTracer,
12 I myTime, myIter, myThid )
13 C !DESCRIPTION: \bv
14 C *==========================================================*
15 C | S/R CYCLE_TRACER
16 C *==========================================================*
17 C | o Cycles the time-stepping arrays for a tracer field
18 C *==========================================================*
19 C \ev
20 C !USES:
21 IMPLICIT NONE
22 C Common
23 #include "SIZE.h"
24 #include "EEPARAMS.h"
25 #include "PARAMS.h"
26 C !INPUT/OUTPUT PARAMETERS:
27 C == Routine Arguments ==
28 C bi, bj :: current tile indices
29 C tracer, gTracer, gTrNm1 :: Tracer field, with tendencies
30 C myTime :: Current simulation time for this instance.
31 C myIter :: Current time-step number
32 C myThid :: my Thread Id number
33 INTEGER bi,bj
34 c INTEGER iMin,iMax,jMin,jMax
35 _RL tracer (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr)
36 _RL gTracer(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr)
37 c _RL gTrNm1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr)
38 _RL myTime
39 INTEGER myIter, myThid
40
41 C !LOCAL VARIABLES:
42 C == Local variables ==
43 INTEGER i,j,k
44 CEOP
45
46 C Rotate tracer/gTracer
47 DO k=1,Nr
48 DO j=1-OLy,sNy+OLy
49 DO i=1-OLx,sNx+OLx
50 tracer(i,j,k) = gTracer(i,j,k)
51 ENDDO
52 ENDDO
53 ENDDO
54
55 RETURN
56 END
  ViewVC Help
Powered by ViewVC 1.1.22