/[MITgcm]/MITgcm/pkg/obcs/ORLANSKI.h
ViewVC logotype

Contents of /MITgcm/pkg/obcs/ORLANSKI.h

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

Revision 1.2 - (show annotations) (download)
Fri Feb 2 21:36:29 2001 UTC (23 years, 3 months ago) by adcroft
Branch: MAIN
CVS Tags: checkpoint46n_post, checkpoint51k_post, checkpoint47e_post, checkpoint52l_pre, checkpoint44e_post, hrcube4, hrcube5, checkpoint46l_post, checkpoint46g_pre, checkpoint47c_post, release1_p13_pre, checkpoint50c_post, checkpoint46f_post, checkpoint52d_pre, checkpoint48e_post, checkpoint50c_pre, checkpoint44f_post, checkpoint46b_post, checkpoint52j_pre, checkpoint43a-release1mods, checkpoint51o_pre, release1_p13, checkpoint40pre3, checkpoint40pre1, checkpoint51l_post, checkpoint40pre7, checkpoint40pre6, checkpoint48i_post, checkpoint40pre9, checkpoint40pre8, checkpoint46l_pre, checkpoint52l_post, checkpoint52k_post, chkpt44d_post, checkpoint54, checkpoint51, checkpoint50, checkpoint53, checkpoint52, release1_p8, release1_p9, checkpoint50d_post, release1_p1, release1_p2, release1_p3, release1_p4, release1_p5, release1_p6, release1_p7, checkpoint52f_post, checkpoint50b_pre, checkpoint44e_pre, checkpoint51f_post, release1_b1, checkpoint48b_post, checkpoint43, checkpoint51d_post, checkpoint48c_pre, checkpoint47d_pre, checkpoint51t_post, checkpoint38, checkpoint51n_post, release1_chkpt44d_post, checkpoint52i_pre, hrcube_1, hrcube_2, hrcube_3, checkpoint51s_post, checkpoint47a_post, checkpoint48d_pre, checkpoint51j_post, checkpoint47i_post, checkpoint52e_pre, checkpoint52e_post, checkpoint51n_pre, checkpoint47d_post, checkpoint53d_post, checkpoint46d_pre, checkpoint40pre2, checkpoint48d_post, release1-branch_tutorials, checkpoint48f_post, checkpoint45d_post, checkpoint52b_pre, checkpoint46j_pre, checkpoint51l_pre, checkpoint52m_post, chkpt44a_post, checkpoint44h_pre, checkpoint48h_post, checkpoint51q_post, checkpoint40pre4, checkpoint51b_pre, checkpoint46a_post, checkpoint47g_post, checkpoint52b_post, checkpoint52c_post, checkpoint46j_post, checkpoint51h_pre, checkpoint46k_post, chkpt44c_pre, checkpoint48a_post, checkpoint45a_post, checkpoint50f_post, checkpoint50a_post, checkpoint50f_pre, checkpoint52f_pre, release1_p12, release1_p10, release1_p11, release1_p16, release1_p17, release1_p14, release1_p15, checkpoint47j_post, pre38tag1, checkpoint54a_pre, checkpoint53c_post, branch-exfmods-tag, checkpoint44g_post, branchpoint-genmake2, checkpoint54a_post, checkpoint46e_pre, checkpoint51r_post, checkpoint48c_post, checkpoint45b_post, checkpoint46b_pre, checkpoint51i_post, release1-branch-end, c37_adj, release1_final_v1, checkpoint51b_post, checkpoint51c_post, checkpoint46c_pre, checkpoint53a_post, checkpoint46, checkpoint47b_post, checkpoint44b_post, checkpoint46h_pre, checkpoint52d_post, checkpoint53g_post, checkpoint46m_post, checkpoint46a_pre, checkpoint50g_post, checkpoint45c_post, checkpoint44h_post, pre38-close, checkpoint46g_post, release1_p12_pre, checkpoint39, checkpoint52a_pre, checkpoint37, checkpoint36, checkpoint35, checkpoint50h_post, checkpoint52i_post, checkpoint50e_pre, checkpoint50i_post, checkpoint51i_pre, checkpoint52h_pre, checkpoint53f_post, checkpoint40pre5, checkpoint52j_post, checkpoint47f_post, checkpoint50e_post, chkpt44a_pre, checkpoint46i_post, checkpoint46c_post, branch-netcdf, checkpoint50d_pre, checkpoint52n_post, checkpoint53b_pre, checkpoint46e_post, release1_beta1, checkpoint51e_post, checkpoint44b_pre, checkpoint42, checkpoint40, checkpoint41, checkpoint47, checkpoint44, checkpoint45, checkpoint48, checkpoint49, checkpoint46h_post, checkpoint51o_post, checkpoint51f_pre, chkpt44c_post, checkpoint48g_post, checkpoint53b_post, checkpoint47h_post, checkpoint52a_post, checkpoint44f_pre, checkpoint51g_post, ecco_c52_e35, checkpoint46d_post, checkpoint50b_post, release1-branch_branchpoint, checkpoint51m_post, checkpoint53d_pre, checkpoint51a_post, checkpoint51p_post, checkpoint51u_post
Branch point for: branch-exfmods-curt, release1_final, release1-branch, branch-genmake2, release1, branch-nonh, tg2-branch, ecco-branch, release1_50yr, netcdf-sm0, checkpoint51n_branch, pre38, release1_coupled
Changes since 1.1: +169 -0 lines
File MIME type: text/plain 
Merged changes from branch "branch-atmos-merge" into MAIN (checkpoint34)
 - substantial modifications to algorithm sequence (dynamics.F)
 - packaged OBCS, Shapiro filter, Zonal filter, Atmospheric Physics
1 C $Header: /u/gcmpack/models/MITgcmUV/pkg/obcs/Attic/ORLANSKI.h,v 1.1.2.1 2001/01/30 21:03:00 adcroft Exp $
2 C $Name: branch-atmos-merge-freeze $
3
4 C SPK 6/2/00: Added storage arrays for salinity. Removed some
5 C unneeded arrays.
6 C
7 C SPK 7/18/00: Added dimensional phase speed arrays CVEL_**,
8 C where **=Variable(U,V,T,S,W)Boundary(E,W,N,S).
9 C
10
11 #ifdef ALLOW_ORLANSKI
12
13 COMMON /ORLANSKI_PARAMS/
14 & CMax, cVelTimeScale
15 _RL CMax, cVelTimeScale
16
17 C Storage arrays
18 COMMON /ORLANSKI_STORE/
19 & UE_STORE_1,UE_STORE_2,
20 & UE_STORE_3,UE_STORE_4,
21 & VE_STORE_1,VE_STORE_2,
22 & VE_STORE_3,VE_STORE_4,
23 & TE_STORE_1,TE_STORE_2,
24 & TE_STORE_3,TE_STORE_4,
25 & SE_STORE_1,SE_STORE_2,
26 & SE_STORE_3,SE_STORE_4,
27 & WE_STORE_1,WE_STORE_2,
28 & WE_STORE_3,WE_STORE_4,
29 & UW_STORE_1,UW_STORE_2,
30 & UW_STORE_3,UW_STORE_4,
31 & VW_STORE_1,VW_STORE_2,
32 & VW_STORE_3,VW_STORE_4,
33 & TW_STORE_1,TW_STORE_2,
34 & TW_STORE_3,TW_STORE_4,
35 & SW_STORE_1,SW_STORE_2,
36 & SW_STORE_3,SW_STORE_4,
37 & WW_STORE_1,WW_STORE_2,
38 & WW_STORE_3,WW_STORE_4,
39 & UN_STORE_1,UN_STORE_2,
40 & UN_STORE_3,UN_STORE_4,
41 & VN_STORE_1,VN_STORE_2,
42 & VN_STORE_3,VN_STORE_4,
43 & TN_STORE_1,TN_STORE_2,
44 & TN_STORE_3,TN_STORE_4,
45 & SN_STORE_1,SN_STORE_2,
46 & SN_STORE_3,SN_STORE_4,
47 & WN_STORE_1,WN_STORE_2,
48 & WN_STORE_3,WN_STORE_4,
49 & US_STORE_1,US_STORE_2,
50 & US_STORE_3,US_STORE_4,
51 & VS_STORE_1,VS_STORE_2,
52 & VS_STORE_3,VS_STORE_4,
53 & TS_STORE_1,TS_STORE_2,
54 & TS_STORE_3,TS_STORE_4,
55 & SS_STORE_1,SS_STORE_2,
56 & SS_STORE_3,SS_STORE_4,
57 & WS_STORE_1,WS_STORE_2,
58 & WS_STORE_3,WS_STORE_4
59
60 _RL UE_STORE_1(1-OLy:sNy+OLy,Nr,nSx,nSy)
61 _RL UE_STORE_2(1-OLy:sNy+OLy,Nr,nSx,nSy)
62 _RL UE_STORE_3(1-OLy:sNy+OLy,Nr,nSx,nSy)
63 _RL UE_STORE_4(1-OLy:sNy+OLy,Nr,nSx,nSy)
64 _RL VE_STORE_1(1-OLy:sNy+OLy,Nr,nSx,nSy)
65 _RL VE_STORE_2(1-OLy:sNy+OLy,Nr,nSx,nSy)
66 _RL VE_STORE_3(1-OLy:sNy+OLy,Nr,nSx,nSy)
67 _RL VE_STORE_4(1-OLy:sNy+OLy,Nr,nSx,nSy)
68 _RL TE_STORE_1(1-OLy:sNy+OLy,Nr,nSx,nSy)
69 _RL TE_STORE_2(1-OLy:sNy+OLy,Nr,nSx,nSy)
70 _RL TE_STORE_3(1-OLy:sNy+OLy,Nr,nSx,nSy)
71 _RL TE_STORE_4(1-OLy:sNy+OLy,Nr,nSx,nSy)
72 _RL SE_STORE_1(1-OLy:sNy+OLy,Nr,nSx,nSy)
73 _RL SE_STORE_2(1-OLy:sNy+OLy,Nr,nSx,nSy)
74 _RL SE_STORE_3(1-OLy:sNy+OLy,Nr,nSx,nSy)
75 _RL SE_STORE_4(1-OLy:sNy+OLy,Nr,nSx,nSy)
76 _RL WE_STORE_1(1-OLy:sNy+OLy,Nr,nSx,nSy)
77 _RL WE_STORE_2(1-OLy:sNy+OLy,Nr,nSx,nSy)
78 _RL WE_STORE_3(1-OLy:sNy+OLy,Nr,nSx,nSy)
79 _RL WE_STORE_4(1-OLy:sNy+OLy,Nr,nSx,nSy)
80 _RL UW_STORE_1(1-OLy:sNy+OLy,Nr,nSx,nSy)
81 _RL UW_STORE_2(1-OLy:sNy+OLy,Nr,nSx,nSy)
82 _RL UW_STORE_3(1-OLy:sNy+OLy,Nr,nSx,nSy)
83 _RL UW_STORE_4(1-OLy:sNy+OLy,Nr,nSx,nSy)
84 _RL VW_STORE_1(1-OLy:sNy+OLy,Nr,nSx,nSy)
85 _RL VW_STORE_2(1-OLy:sNy+OLy,Nr,nSx,nSy)
86 _RL VW_STORE_3(1-OLy:sNy+OLy,Nr,nSx,nSy)
87 _RL VW_STORE_4(1-OLy:sNy+OLy,Nr,nSx,nSy)
88 _RL TW_STORE_1(1-OLy:sNy+OLy,Nr,nSx,nSy)
89 _RL TW_STORE_2(1-OLy:sNy+OLy,Nr,nSx,nSy)
90 _RL TW_STORE_3(1-OLy:sNy+OLy,Nr,nSx,nSy)
91 _RL TW_STORE_4(1-OLy:sNy+OLy,Nr,nSx,nSy)
92 _RL SW_STORE_1(1-OLy:sNy+OLy,Nr,nSx,nSy)
93 _RL SW_STORE_2(1-OLy:sNy+OLy,Nr,nSx,nSy)
94 _RL SW_STORE_3(1-OLy:sNy+OLy,Nr,nSx,nSy)
95 _RL SW_STORE_4(1-OLy:sNy+OLy,Nr,nSx,nSy)
96 _RL WW_STORE_1(1-OLy:sNy+OLy,Nr,nSx,nSy)
97 _RL WW_STORE_2(1-OLy:sNy+OLy,Nr,nSx,nSy)
98 _RL WW_STORE_3(1-OLy:sNy+OLy,Nr,nSx,nSy)
99 _RL WW_STORE_4(1-OLy:sNy+OLy,Nr,nSx,nSy)
100 _RL UN_STORE_1(1-OLx:sNx+OLx,Nr,nSx,nSy)
101 _RL UN_STORE_2(1-OLx:sNx+OLx,Nr,nSx,nSy)
102 _RL UN_STORE_3(1-OLx:sNx+OLx,Nr,nSx,nSy)
103 _RL UN_STORE_4(1-OLx:sNx+OLx,Nr,nSx,nSy)
104 _RL VN_STORE_1(1-OLx:sNx+OLx,Nr,nSx,nSy)
105 _RL VN_STORE_2(1-OLx:sNx+OLx,Nr,nSx,nSy)
106 _RL VN_STORE_3(1-OLx:sNx+OLx,Nr,nSx,nSy)
107 _RL VN_STORE_4(1-OLx:sNx+OLx,Nr,nSx,nSy)
108 _RL TN_STORE_1(1-OLx:sNx+OLx,Nr,nSx,nSy)
109 _RL TN_STORE_2(1-OLx:sNx+OLx,Nr,nSx,nSy)
110 _RL TN_STORE_3(1-OLx:sNx+OLx,Nr,nSx,nSy)
111 _RL TN_STORE_4(1-OLx:sNx+OLx,Nr,nSx,nSy)
112 _RL SN_STORE_1(1-OLx:sNx+OLx,Nr,nSx,nSy)
113 _RL SN_STORE_2(1-OLx:sNx+OLx,Nr,nSx,nSy)
114 _RL SN_STORE_3(1-OLx:sNx+OLx,Nr,nSx,nSy)
115 _RL SN_STORE_4(1-OLx:sNx+OLx,Nr,nSx,nSy)
116 _RL WN_STORE_1(1-OLx:sNx+OLx,Nr,nSx,nSy)
117 _RL WN_STORE_2(1-OLx:sNx+OLx,Nr,nSx,nSy)
118 _RL WN_STORE_3(1-OLx:sNx+OLx,Nr,nSx,nSy)
119 _RL WN_STORE_4(1-OLx:sNx+OLx,Nr,nSx,nSy)
120 _RL US_STORE_1(1-OLx:sNx+OLx,Nr,nSx,nSy)
121 _RL US_STORE_2(1-OLx:sNx+OLx,Nr,nSx,nSy)
122 _RL US_STORE_3(1-OLx:sNx+OLx,Nr,nSx,nSy)
123 _RL US_STORE_4(1-OLx:sNx+OLx,Nr,nSx,nSy)
124 _RL VS_STORE_1(1-OLx:sNx+OLx,Nr,nSx,nSy)
125 _RL VS_STORE_2(1-OLx:sNx+OLx,Nr,nSx,nSy)
126 _RL VS_STORE_3(1-OLx:sNx+OLx,Nr,nSx,nSy)
127 _RL VS_STORE_4(1-OLx:sNx+OLx,Nr,nSx,nSy)
128 _RL TS_STORE_1(1-OLx:sNx+OLx,Nr,nSx,nSy)
129 _RL TS_STORE_2(1-OLx:sNx+OLx,Nr,nSx,nSy)
130 _RL TS_STORE_3(1-OLx:sNx+OLx,Nr,nSx,nSy)
131 _RL TS_STORE_4(1-OLx:sNx+OLx,Nr,nSx,nSy)
132 _RL SS_STORE_1(1-OLx:sNx+OLx,Nr,nSx,nSy)
133 _RL SS_STORE_2(1-OLx:sNx+OLx,Nr,nSx,nSy)
134 _RL SS_STORE_3(1-OLx:sNx+OLx,Nr,nSx,nSy)
135 _RL SS_STORE_4(1-OLx:sNx+OLx,Nr,nSx,nSy)
136 _RL WS_STORE_1(1-OLx:sNx+OLx,Nr,nSx,nSy)
137 _RL WS_STORE_2(1-OLx:sNx+OLx,Nr,nSx,nSy)
138 _RL WS_STORE_3(1-OLx:sNx+OLx,Nr,nSx,nSy)
139 _RL WS_STORE_4(1-OLx:sNx+OLx,Nr,nSx,nSy)
140
141 C Phase speed arrays
142 COMMON /ORLANSKI_CVEL/
143 & CVEL_UE,CVEL_VE,CVEL_TE,CVEL_SE,CVEL_WE,
144 & CVEL_UW,CVEL_VW,CVEL_TW,CVEL_SW,CVEL_WW,
145 & CVEL_UN,CVEL_VN,CVEL_TN,CVEL_SN,CVEL_WN,
146 & CVEL_US,CVEL_VS,CVEL_TS,CVEL_SS,CVEL_WS
147
148 _RL CVEL_UE(1-OLy:sNy+OLy,Nr,nSx,nSy)
149 _RL CVEL_VE(1-OLy:sNy+OLy,Nr,nSx,nSy)
150 _RL CVEL_TE(1-OLy:sNy+OLy,Nr,nSx,nSy)
151 _RL CVEL_SE(1-OLy:sNy+OLy,Nr,nSx,nSy)
152 _RL CVEL_WE(1-OLy:sNy+OLy,Nr,nSx,nSy)
153 _RL CVEL_UW(1-OLy:sNy+OLy,Nr,nSx,nSy)
154 _RL CVEL_VW(1-OLy:sNy+OLy,Nr,nSx,nSy)
155 _RL CVEL_TW(1-OLy:sNy+OLy,Nr,nSx,nSy)
156 _RL CVEL_SW(1-OLy:sNy+OLy,Nr,nSx,nSy)
157 _RL CVEL_WW(1-OLy:sNy+OLy,Nr,nSx,nSy)
158 _RL CVEL_UN(1-OLx:sNx+OLx,Nr,nSx,nSy)
159 _RL CVEL_VN(1-OLx:sNx+OLx,Nr,nSx,nSy)
160 _RL CVEL_TN(1-OLx:sNx+OLx,Nr,nSx,nSy)
161 _RL CVEL_SN(1-OLx:sNx+OLx,Nr,nSx,nSy)
162 _RL CVEL_WN(1-OLx:sNx+OLx,Nr,nSx,nSy)
163 _RL CVEL_US(1-OLx:sNx+OLx,Nr,nSx,nSy)
164 _RL CVEL_VS(1-OLx:sNx+OLx,Nr,nSx,nSy)
165 _RL CVEL_TS(1-OLx:sNx+OLx,Nr,nSx,nSy)
166 _RL CVEL_SS(1-OLx:sNx+OLx,Nr,nSx,nSy)
167 _RL CVEL_WS(1-OLx:sNx+OLx,Nr,nSx,nSy)
168
169 #endif /* ALLOW_ORLANSKI */
  ViewVC Help
Powered by ViewVC 1.1.22