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

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

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

Revision 1.7 - (hide annotations) (download)
Wed Sep 26 18:09:14 2001 UTC (22 years, 8 months ago) by cnh
Branch: MAIN
CVS Tags: checkpoint44e_post, release1_p13_pre, checkpoint43a-release1mods, release1_p13, chkpt44d_post, release1_p8, release1_p9, release1_p1, release1_p2, release1_p3, release1_p4, release1_p5, release1_p6, release1_p7, checkpoint44e_pre, release1_b1, checkpoint43, release1_chkpt44d_post, release1_p11, icebear5, icebear4, icebear3, icebear2, release1-branch_tutorials, chkpt44a_post, chkpt44c_pre, ecco_c44_e19, ecco_c44_e18, ecco_c44_e17, ecco_c44_e16, release1_p12, release1_p10, release1_p16, release1_p17, release1_p14, release1_p15, release1-branch-end, release1_final_v1, checkpoint44b_post, ecco_ice2, ecco_ice1, release1_p12_pre, ecco_c44_e22, ecco_c44_e25, chkpt44a_pre, ecco_c44_e23, ecco_c44_e20, ecco_c44_e21, ecco_c44_e26, ecco_c44_e27, ecco_c44_e24, ecco-branch-mod1, ecco-branch-mod2, ecco-branch-mod3, ecco-branch-mod4, ecco-branch-mod5, release1_beta1, checkpoint44b_pre, checkpoint42, checkpoint41, checkpoint44, chkpt44c_post, checkpoint44f_pre, release1-branch_branchpoint
Branch point for: c24_e25_ice, release1_final, release1-branch, release1, ecco-branch, release1_50yr, icebear, release1_coupled
Changes since 1.6: +10 -3 lines 
Bringing comments up to data and formatting for document extraction.
1 cnh 1.7 C $Header: /u/gcmpack/models/MITgcmUV/model/src/do_fields_blocking_exchanges.F,v 1.6 2001/07/30 20:23:09 heimbach Exp $
2     C $Name: $
3 adcroft 1.2
4     #include "CPP_OPTIONS.h"
5    
6 cnh 1.7 CBOP
7     C !ROUTINE: DO_FIELDS_BLOCKING_EXCHANGES
8     C !INTERFACE:
9 adcroft 1.2 SUBROUTINE DO_FIELDS_BLOCKING_EXCHANGES(myThid)
10 cnh 1.7 C !DESCRIPTION: \bv
11 adcroft 1.2 C /==========================================================\
12     C | SUBROUTINE DO_FIELDS_BLOCKING_EXCHANGES |
13     C | o Controlling routine for exchanging edge info. |
14     C |==========================================================|
15     C | One key trick used in UV us that we over-compute and |
16     C | arrange our time-stepping loop so that we only need one |
17     C | edge exchange for the explicit code per timestep. |
18     C \==========================================================/
19 cnh 1.7 C \ev
20     C !USES:
21 adcroft 1.2 IMPLICIT NONE
22     C == Global variables ===
23     #include "SIZE.h"
24     #include "EEPARAMS.h"
25     #include "DYNVARS.h"
26 heimbach 1.6 #ifdef ALLOW_PASSIVE_TRACER
27 heimbach 1.5 #include "TR1.h"
28 heimbach 1.6 #endif
29 adcroft 1.2
30 cnh 1.7 C !INPUT/OUTPUT PARAMETERS:
31 adcroft 1.2 C == Routine arguments ==
32     C myThid - Thread number for this instance of the routine.
33     INTEGER myThid
34 cnh 1.7 CEOP
35 adcroft 1.2
36     c _EXCH_XYZ_R8( Gu , myThid )
37     c _EXCH_XYZ_R8( Gv , myThid )
38     c _EXCH_XYZ_R8( Gt , myThid )
39     c _EXCH_XYZ_R8( Gs , myThid )
40     c _EXCH_XYZ_R8( gUNm1 , myThid )
41     c _EXCH_XYZ_R8( gVNm1 , myThid )
42     c _EXCH_XYZ_R8( gTNm1 , myThid )
43     c _EXCH_XYZ_R8( gSNm1 , myThid )
44 adcroft 1.4 c _EXCH_XYZ_R8( uVel , myThid )
45     c _EXCH_XYZ_R8( vVel , myThid )
46     CALL EXCH_UV_XYZ_RL(uVel,vVel,.TRUE.,myThid)
47 adcroft 1.2 _EXCH_XYZ_R8( theta , myThid )
48     _EXCH_XYZ_R8( salt , myThid )
49 heimbach 1.6 #ifdef ALLOW_PASSIVE_TRACER
50 heimbach 1.5 _EXCH_XYZ_R8( Tr1 , myThid )
51 heimbach 1.6 #endif
52 adcroft 1.2
53     #ifdef INCLUDE_CD_CODE
54     c _EXCH_XYZ_R8( guCD , myThid )
55     c _EXCH_XYZ_R8( gvCD , myThid )
56     _EXCH_XYZ_R8( uVelD , myThid )
57     _EXCH_XYZ_R8( vVelD , myThid )
58     #endif
59    
60     RETURN
61     END
62    
  ViewVC Help
Powered by ViewVC 1.1.22