[Mitgcm-support] exch

[mitgcm-support at dev.mitgcm.org]

cg2d.F:      CALL EXCH_XY_O1_R8_JAM( cg2d_r )
cg2d.F:       CALL EXCH_RL_CUBE( cg2d_r,
cg2d.F:       CALL EXCH_RL( cg2d_r,
cg2d.F:      CALL EXCH_XY_O1_R8_JAM( cg2d_s )
cg2d.F:       CALL EXCH_RL_CUBE( cg2d_s,
cg2d.F:       CALL EXCH_RL( cg2d_s,
cg2d.F:      CALL EXCH_XY_O1_R8_JAM( cg2d_s )
cg2d.F:       CALL EXCH_RL_CUBE( cg2d_s,
cg2d.F:       CALL EXCH_RL( cg2d_s,
cg2d.F:      CALL EXCH_XY_O1_R8_JAM( cg2d_r )
cg2d.F:       CALL EXCH_RL_CUBE( cg2d_r,
cg2d.F:       CALL EXCH_RL( cg2d_r,
cg3d.F:       CALL EXCH_RL( cg3d_r,
cg3d.F:       CALL EXCH_RL( cg3d_s,
cg3d.F:       CALL EXCH_RL( cg3d_r,
do_fields_blocking_exchanges.F:      CALL
EXCH_UV_XYZ_RL(uVel,vVel,.TRUE.,myThid)
do_gterm_blocking_exchanges.F:      CALL
EXCH_UV_XYZ_RL(gUnm1,gVnm1,.TRUE.,myThid)
ini_cg2d.F:      CALL EXCH_UV_XY_RS(aW2d,aS2d,.FALSE.,myThid)
ini_cg2d.F:      CALL EXCH_UV_XY_RS(pW,pS,.FALSE.,myThid)
ini_cori.F:Ccs   CALL EXCH_Z_XY_RS(fCoriG,myThid)
ini_curvilinear_grid.F:      CALL EXCH_Z_XY_RS(XG,myThid)
ini_curvilinear_grid.F:      CALL EXCH_Z_XY_RS(YG,myThid)
ini_curvilinear_grid.F:      CALL EXCH_Z_XY_RS(XG,myThid)
ini_curvilinear_grid.F:      CALL EXCH_Z_XY_RS(YG,myThid)
ini_curvilinear_grid.F:      CALL EXCH_Z_XY_RS(DXV,myThid)
ini_curvilinear_grid.F:      CALL EXCH_Z_XY_RS(DYU,myThid)
ini_curvilinear_grid.F:      CALL EXCH_Z_XY_RS(DXV,myThid)
ini_curvilinear_grid.F:      CALL EXCH_Z_XY_RS(DYU,myThid)
ini_curvilinear_grid.F:      CALL EXCH_Z_XY_RS(RAZ , myThid )
ini_curvilinear_grid.F:      CALL EXCH_Z_XY_RS(RAZ,myThid)
ini_curvilinear_grid.F:      CALL EXCH_UV_XY_RS(DXC,DYC,.FALSE.,myThid)
ini_curvilinear_grid.F:      CALL EXCH_UV_XY_RS(RAW,RAS,.FALSE.,myThid)
ini_curvilinear_grid.F:      CALL EXCH_UV_XY_RS(DYG,DXG,.FALSE.,myThid)