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

Contents of /MITgcm/model/src/do_stagger_fields_exchanges.F

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

Revision 1.1 - (show annotations) (download)
Mon Oct 7 16:17:09 2002 UTC (21 years, 8 months ago) by jmc
Branch: MAIN
CVS Tags: checkpoint46n_post, checkpoint47e_post, checkpoint46l_post, checkpoint47c_post, checkpoint50c_post, checkpoint48e_post, checkpoint50c_pre, checkpoint48i_post, checkpoint46l_pre, checkpoint50d_pre, checkpoint51, checkpoint50, checkpoint50d_post, checkpoint50b_pre, checkpoint51f_post, checkpoint48b_post, checkpoint51d_post, checkpoint48c_pre, checkpoint47d_pre, checkpoint47a_post, checkpoint48d_pre, checkpoint51j_post, checkpoint47i_post, checkpoint47d_post, checkpoint48d_post, checkpoint48f_post, checkpoint48h_post, checkpoint51b_pre, checkpoint47g_post, checkpoint46j_post, checkpoint51h_pre, checkpoint46k_post, checkpoint48a_post, checkpoint50f_post, checkpoint50a_post, checkpoint50f_pre, checkpoint47j_post, branch-exfmods-tag, branchpoint-genmake2, checkpoint48c_post, checkpoint51b_post, checkpoint51c_post, checkpoint47b_post, checkpoint46m_post, checkpoint50g_post, checkpoint50h_post, checkpoint50e_pre, checkpoint50i_post, checkpoint51i_pre, checkpoint47f_post, checkpoint50e_post, checkpoint51e_post, checkpoint47, checkpoint48, checkpoint49, checkpoint51f_pre, checkpoint48g_post, checkpoint47h_post, checkpoint51g_post, checkpoint50b_post, checkpoint51a_post
Branch point for: branch-exfmods-curt, branch-genmake2, ecco-branch 
* split calc_exact_eta in 2 S/R : integr_continuity & update_etaH
* move wVel computation at the end of the time step, in S/R integr_continuity
* create specific S/R to exchange T,S before DYNAMICS (for stagger time step)
* update timeave pkg for wVel diagnostic ; put convertEmP2rUnit in PARAMS.h
1 C $Header: $
2 C $Name: $
3
4 #include "CPP_OPTIONS.h"
5
6 CBOP
7 C !ROUTINE: DO_STAGGER_FIELDS_EXCHANGES
8 C !INTERFACE:
9 SUBROUTINE DO_STAGGER_FIELDS_EXCHANGES(myTime, myIter, myThid)
10 C !DESCRIPTION: \bv
11 C *==========================================================*
12 C | SUBROUTINE DO_STAGGER_FIELDS_EXCHANGES
13 C | o Exchange edge info of Active tracers fields (T,S)
14 C | (needed when using stagger time step)
15 C *==========================================================*
16 C \ev
17 C !USES:
18 IMPLICIT NONE
19 C == Global variables ===
20 #include "SIZE.h"
21 #include "EEPARAMS.h"
22 #include "PARAMS.h"
23 #include "DYNVARS.h"
24
25 C !INPUT/OUTPUT PARAMETERS:
26 C == Routine arguments ==
27 C myTime :: Current time in simulation
28 C myIter :: Current iteration number in simulation
29 C myThid :: Thread number for this instance of the routine.
30 _RL myTime
31 INTEGER myIter
32 INTEGER myThid
33 CEOP
34
35 IF ( staggerTimeStep ) THEN
36 _EXCH_XYZ_R8( gT , myThid )
37 _EXCH_XYZ_R8( gS , myThid )
38 c _EXCH_XYZ_R8( theta , myThid )
39 c _EXCH_XYZ_R8( salt , myThid )
40 ENDIF
41
42 #ifdef ALLOW_AIM
43 IF ( useAIM ) THEN
44 CALL AIM_AIM2DYN_EXCHANGES( myTime, myThid )
45 ENDIF
46 #endif /* ALLOW_AIM */
47
48 RETURN
49 END
  ViewVC Help
Powered by ViewVC 1.1.22