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

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

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

Revision 1.9 - (hide annotations) (download)
Thu Aug 14 16:49:19 2014 UTC (9 years, 9 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 jmc 1.9 C $Header: /u/gcmpack/MITgcm/model/src/cycle_tracer.F,v 1.8 2007/01/09 21:50:25 jmc Exp $
2 adcroft 1.4 C $Name: $
3 adcroft 1.2
4     #include "CPP_OPTIONS.h"
5    
6 cnh 1.5 CBOP
7     C !ROUTINE: CYCLE_TRACER
8     C !INTERFACE:
9 adcroft 1.2 SUBROUTINE CYCLE_TRACER(
10 jmc 1.8 I bi, bj,
11 jmc 1.7 U tracer, gTracer,
12     I myTime, myIter, myThid )
13 cnh 1.5 C !DESCRIPTION: \bv
14     C *==========================================================*
15 jmc 1.9 C | S/R CYCLE_TRACER
16 cnh 1.5 C *==========================================================*
17 jmc 1.9 C | o Cycles the time-stepping arrays for a tracer field
18 cnh 1.5 C *==========================================================*
19     C \ev
20     C !USES:
21 adcroft 1.2 IMPLICIT NONE
22     C Common
23     #include "SIZE.h"
24     #include "EEPARAMS.h"
25     #include "PARAMS.h"
26 cnh 1.5 C !INPUT/OUTPUT PARAMETERS:
27 adcroft 1.2 C == Routine Arguments ==
28 jmc 1.9 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 jmc 1.8 INTEGER bi,bj
34 jmc 1.7 c INTEGER iMin,iMax,jMin,jMax
35 jmc 1.9 _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 adcroft 1.2 _RL myTime
39 jmc 1.7 INTEGER myIter, myThid
40 adcroft 1.2
41 cnh 1.5 C !LOCAL VARIABLES:
42 adcroft 1.2 C == Local variables ==
43 jmc 1.8 INTEGER i,j,k
44 cnh 1.5 CEOP
45 adcroft 1.2
46 jmc 1.8 C Rotate tracer/gTracer
47     DO k=1,Nr
48     DO j=1-OLy,sNy+OLy
49     DO i=1-OLx,sNx+OLx
50 jmc 1.9 tracer(i,j,k) = gTracer(i,j,k)
51 jmc 1.8 ENDDO
52 adcroft 1.2 ENDDO
53     ENDDO
54    
55     RETURN
56     END
  ViewVC Help
Powered by ViewVC 1.1.22