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

Annotation 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 - (hide annotations) (download)
Thu Mar 8 17:12:33 2012 UTC (12 years, 2 months 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 jmc 1.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