/[MITgcm]/MITgcm/pkg/aim_v23/aim_aim2dyn_exchanges.F
ViewVC logotype

Contents of /MITgcm/pkg/aim_v23/aim_aim2dyn_exchanges.F

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

Revision 1.1 - (show annotations) (download)
Fri Nov 22 17:17:03 2002 UTC (21 years, 7 months ago) by jmc
Branch: MAIN
CVS Tags: checkpoint48f_post, checkpoint51k_post, checkpoint47j_post, checkpoint48d_pre, checkpoint51l_post, checkpoint51j_post, branch-exfmods-tag, checkpoint52d_pre, checkpoint52l_pre, checkpoint48i_post, checkpoint52e_pre, hrcube4, checkpoint52j_post, checkpoint47a_post, checkpoint50d_pre, checkpoint48d_post, checkpoint51o_pre, checkpoint50e_post, checkpoint52e_post, checkpoint50c_post, checkpoint51n_pre, checkpoint47d_post, checkpoint48a_post, checkpoint48e_post, checkpoint48h_post, checkpoint50c_pre, branchpoint-genmake2, checkpoint51q_post, checkpoint47e_post, checkpoint52j_pre, checkpoint50h_post, branch-netcdf, checkpoint52l_post, checkpoint51r_post, checkpoint52k_post, checkpoint52b_pre, checkpoint51a_post, checkpoint51i_post, checkpoint47h_post, checkpoint48c_post, checkpoint50b_pre, checkpoint48b_post, checkpoint47i_post, checkpoint51e_post, checkpoint51b_post, checkpoint51l_pre, checkpoint52m_post, checkpoint51c_post, checkpoint48, checkpoint49, checkpoint51f_pre, checkpoint47b_post, checkpoint51o_post, checkpoint51p_post, checkpoint48g_post, checkpoint51, checkpoint50, checkpoint52, checkpoint51f_post, checkpoint50b_post, checkpoint50d_post, checkpoint52d_post, checkpoint47f_post, checkpoint51b_pre, checkpoint52a_post, checkpoint47g_post, checkpoint52b_post, checkpoint52f_post, checkpoint52c_post, checkpoint51h_pre, checkpoint50g_post, checkpoint51g_post, ecco_c52_e35, hrcube5, checkpoint50f_post, checkpoint50f_pre, checkpoint52a_pre, checkpoint47d_pre, checkpoint51d_post, checkpoint52i_post, checkpoint48c_pre, checkpoint50a_post, checkpoint51t_post, checkpoint51n_post, checkpoint51i_pre, checkpoint50i_post, checkpoint52i_pre, checkpoint51u_post, checkpoint52h_pre, checkpoint50e_pre, checkpoint52f_pre, hrcube_1, hrcube_2, hrcube_3, checkpoint51m_post, checkpoint51s_post
Branch point for: netcdf-sm0, branch-nonh, branch-genmake2, tg2-branch, checkpoint51n_branch, branch-exfmods-curt 
new aim pkg: adapted from Franco Molteni SPEEDY code, ver23
1 C $Header: $
2 C $Name: $
3
4 #include "AIM_OPTIONS.h"
5
6 CStartOfInterface
7 SUBROUTINE AIM_AIM2DYN_EXCHANGES(
8 I myTime,myThid)
9 C /==========================================================\
10 C | S/R AIM_AIM2DYN_EXCHANGES |
11 C | o Do overlap exchanges for AIM related quantities. |
12 C | AIM does not compute into overlaps so exchanges |
13 C | are needed for AIM quantities. |
14 C \==========================================================/
15 IMPLICIT NONE
16
17 C == Global data ==
18 #include "SIZE.h"
19 #include "EEPARAMS.h"
20 #include "PARAMS.h"
21 c #include "DYNVARS.h"
22
23 #include "AIM2DYN.h"
24
25 C == Routine arguments ==
26 _RL myTime
27 INTEGER myThid
28 CEndOfInterface
29
30 #ifdef ALLOW_AIM
31
32 C == Local variables ==
33
34 _EXCH_XY_R8( aim_drag, myThid )
35 c _EXCH_XYZ_R8( gT, myThid )
36 c _EXCH_XYZ_R8( gS, myThid )
37 c _EXCH_XYZ_R8( gTNM1, myThid )
38 c _EXCH_XYZ_R8( gSNM1, myThid )
39
40 #endif /* ALLOW_AIM */
41
42 RETURN
43 END
  ViewVC Help
Powered by ViewVC 1.1.22