/[MITgcm]/MITgcm/pkg/ptracers/ptracers_fields_blocking_exch.F
ViewVC logotype

Contents of /MITgcm/pkg/ptracers/ptracers_fields_blocking_exch.F

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

Revision 1.1 - (show annotations) (download)
Thu Mar 8 17:12:33 2012 UTC (12 years, 1 month ago) by jmc
Branch: MAIN
CVS Tags: checkpoint64y, checkpoint64x, checkpoint64z, checkpoint64o, checkpoint64a, checkpoint63r, checkpoint64q, checkpoint64p, checkpoint64s, checkpoint64r, checkpoint64u, checkpoint64t, checkpoint64w, checkpoint64v, checkpoint66g, checkpoint66f, checkpoint66e, checkpoint66d, checkpoint66c, checkpoint66b, checkpoint66a, checkpoint64n, checkpoint66o, checkpoint66n, checkpoint66m, checkpoint66l, checkpoint66k, checkpoint66j, checkpoint66i, checkpoint66h, checkpoint64b, checkpoint63m, checkpoint64e, checkpoint63q, checkpoint64d, checkpoint64c, checkpoint64g, checkpoint64f, checkpoint63l, checkpoint65z, checkpoint65x, checkpoint65y, checkpoint63n, checkpoint65r, checkpoint65s, checkpoint65p, checkpoint65q, checkpoint65v, checkpoint65w, checkpoint65t, checkpoint65u, checkpoint65j, checkpoint65k, checkpoint65h, checkpoint65i, checkpoint65n, checkpoint65o, checkpoint65l, checkpoint65m, checkpoint65b, checkpoint65c, checkpoint63k, checkpoint65a, checkpoint65f, checkpoint65g, checkpoint65d, checkpoint65e, checkpoint64i, checkpoint63o, checkpoint63p, checkpoint64h, checkpoint63s, checkpoint64k, checkpoint64, checkpoint65, checkpoint64j, checkpoint64m, checkpoint64l, HEAD 
-rename file (to match S/R name) ptracers_fields_blocking_exchanges.F
 to ptracers_fields_blocking_exch.F
-only EXCH tracer if PTRACERS_StepFwd(iTr)=T
1 C $Header: /u/gcmpack/MITgcm/pkg/ptracers/ptracers_fields_blocking_exchanges.F,v 1.11 2011/04/28 23:19:59 jmc Exp $
2 C $Name: $
3
4 #include "PTRACERS_OPTIONS.h"
5 #include "GAD_OPTIONS.h"
6
7 CBOP
8 C !ROUTINE: PTRACERS_FIELDS_BLOCKING_EXCH
9
10 C !INTERFACE: ==========================================================
11 SUBROUTINE PTRACERS_FIELDS_BLOCKING_EXCH( myThid )
12
13 C !DESCRIPTION:
14 C Exchange data to update overlaps for passive tracers
15
16 C !USES: ===============================================================
17 #include "PTRACERS_MOD.h"
18 IMPLICIT NONE
19 #include "SIZE.h"
20 #include "EEPARAMS.h"
21 #include "PARAMS.h"
22 #include "PTRACERS_SIZE.h"
23 #include "PTRACERS_PARAMS.h"
24 #include "PTRACERS_START.h"
25 #include "PTRACERS_FIELDS.h"
26
27 C !INPUT PARAMETERS: ===================================================
28 C myThid :: thread number
29 INTEGER myThid
30
31 C !OUTPUT PARAMETERS: ==================================================
32 C none
33
34 #ifdef ALLOW_PTRACERS
35
36 C !LOCAL VARIABLES: ====================================================
37 C iTracer :: loop indices
38 C bi, bj :: tile indices
39 INTEGER iTracer
40 #ifdef ALLOW_OBCS
41 c INTEGER bi, bj
42 #endif /* ALLOW_OBCS */
43 CEOP
44
45 C Loop over passive tracers
46 DO iTracer=1,PTRACERS_numInUse
47 IF ( PTRACERS_StepFwd(iTracer) ) THEN
48
49 C Exchange overlaps
50 CALL EXCH_3D_RL( pTracer(1-OLx,1-OLy,1,1,1,iTracer),
51 & Nr, myThid )
52 #ifdef PTRACERS_ALLOW_DYN_STATE
53 IF ( PTRACERS_SOM_Advection(iTracer) ) THEN
54 CALL GAD_EXCH_SOM( _Ptracers_som(:,:,:,:,:,:,iTracer),
55 & Nr, myThid )
56 ENDIF
57 #endif /* PTRACERS_ALLOW_DYN_STATE */
58
59 C End of tracer loop
60 ENDIF
61 ENDDO
62
63 #endif /* ALLOW_PTRACERS */
64
65 RETURN
66 END
  ViewVC Help
Powered by ViewVC 1.1.22