/[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.8 - (show annotations) (download)
Tue Jan 9 21:50:25 2007 UTC (17 years, 5 months ago) by jmc
Branch: MAIN
CVS Tags: checkpoint62v, checkpoint62u, checkpoint62t, checkpoint65b, checkpoint65a, checkpoint62c, checkpoint59, checkpoint62s, checkpoint62r, checkpoint62q, checkpoint62p, checkpoint62a, checkpoint62g, checkpoint62f, checkpoint62e, checkpoint62d, checkpoint62k, checkpoint62j, checkpoint62i, checkpoint62h, checkpoint62o, checkpoint62n, checkpoint62m, checkpoint62l, checkpoint62w, checkpoint62z, checkpoint62y, checkpoint62x, checkpoint58y_post, checkpoint63g, checkpoint64, checkpoint65, checkpoint60, checkpoint61, checkpoint62, checkpoint63, checkpoint58w_post, checkpoint63p, checkpoint63q, checkpoint63r, checkpoint63s, checkpoint63l, checkpoint63m, checkpoint63n, checkpoint63o, checkpoint63h, checkpoint63i, checkpoint63j, checkpoint63k, checkpoint63d, checkpoint63e, checkpoint63f, checkpoint63a, checkpoint63b, checkpoint63c, checkpoint59q, checkpoint59p, checkpoint59r, checkpoint59e, checkpoint59d, checkpoint59g, checkpoint59f, checkpoint59a, checkpoint59c, checkpoint59b, checkpoint59m, checkpoint59l, checkpoint59o, checkpoint59n, checkpoint59i, checkpoint59h, checkpoint59k, checkpoint62b, checkpoint58v_post, checkpoint64y, checkpoint64x, checkpoint64z, checkpoint64q, checkpoint64p, checkpoint64s, checkpoint64r, checkpoint64u, checkpoint64t, checkpoint64w, checkpoint64v, checkpoint64i, checkpoint64h, checkpoint64k, checkpoint64j, checkpoint64m, checkpoint64l, checkpoint64o, checkpoint64n, checkpoint64a, checkpoint64c, checkpoint64b, checkpoint64e, checkpoint64d, checkpoint64g, checkpoint64f, checkpoint61f, checkpoint58x_post, checkpoint61n, checkpoint59j, checkpoint61q, checkpoint61e, checkpoint58u_post, checkpoint61g, checkpoint61d, checkpoint61b, checkpoint61c, checkpoint61a, checkpoint61o, checkpoint61l, checkpoint61m, checkpoint61j, checkpoint61k, checkpoint61h, checkpoint61i, checkpoint61v, checkpoint61w, checkpoint61t, checkpoint61u, checkpoint61r, checkpoint61s, checkpoint61p, checkpoint61z, checkpoint61x, checkpoint61y
Changes since 1.7: +14 -13 lines 
do the k loop inside CYCLE_TRACER (supposed to be more efficient)
1 C $Header: /u/gcmpack/MITgcm/model/src/cycle_tracer.F,v 1.7 2005/04/15 14:06:14 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,iMin,iMax,jMin,jMax :: Loop counters
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,nSx,nSy)
36 _RL gTracer(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
37 c _RL gTrNm1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
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 c DO j=jMin,jMax
49 c DO i=iMin,iMax
50 DO j=1-OLy,sNy+OLy
51 DO i=1-OLx,sNx+OLx
52 tracer(i,j,k,bi,bj)=gTracer(i,j,k,bi,bj)
53 ENDDO
54 ENDDO
55 ENDDO
56
57 RETURN
58 END
  ViewVC Help
Powered by ViewVC 1.1.22