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

Contents 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 - (show 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 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
4 #include "CPP_OPTIONS.h"
5
6 CBOP
7 C !ROUTINE: DO_FIELDS_BLOCKING_EXCHANGES
8 C !INTERFACE:
9 SUBROUTINE DO_FIELDS_BLOCKING_EXCHANGES(myThid)
10 C !DESCRIPTION: \bv
11 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 C \ev
20 C !USES:
21 IMPLICIT NONE
22 C == Global variables ===
23 #include "SIZE.h"
24 #include "EEPARAMS.h"
25 #include "DYNVARS.h"
26 #ifdef ALLOW_PASSIVE_TRACER
27 #include "TR1.h"
28 #endif
29
30 C !INPUT/OUTPUT PARAMETERS:
31 C == Routine arguments ==
32 C myThid - Thread number for this instance of the routine.
33 INTEGER myThid
34 CEOP
35
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 c _EXCH_XYZ_R8( uVel , myThid )
45 c _EXCH_XYZ_R8( vVel , myThid )
46 CALL EXCH_UV_XYZ_RL(uVel,vVel,.TRUE.,myThid)
47 _EXCH_XYZ_R8( theta , myThid )
48 _EXCH_XYZ_R8( salt , myThid )
49 #ifdef ALLOW_PASSIVE_TRACER
50 _EXCH_XYZ_R8( Tr1 , myThid )
51 #endif
52
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