/[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.3 - (show annotations) (download)
Tue Jul 6 18:25:52 2004 UTC (19 years, 11 months ago) by adcroft
Branch: MAIN
CVS Tags: checkpoint62v, checkpoint57m_post, checkpoint62u, checkpoint57g_pre, checkpoint62t, checkpoint57s_post, checkpoint58b_post, checkpoint57b_post, checkpoint57g_post, checkpoint56b_post, checkpoint57y_post, checkpoint65z, checkpoint65x, checkpoint65y, checkpoint54d_post, checkpoint65r, checkpoint65s, checkpoint65p, checkpoint65q, checkpoint65v, checkpoint65w, checkpoint65t, checkpoint65u, checkpoint65j, checkpoint65k, checkpoint65h, checkpoint65i, checkpoint65n, checkpoint54e_post, checkpoint65l, checkpoint65m, checkpoint65b, checkpoint65c, checkpoint65a, checkpoint65f, checkpoint65g, checkpoint65d, checkpoint65e, checkpoint62c, checkpoint57r_post, checkpoint57d_post, checkpoint57i_post, checkpoint59, checkpoint58, checkpoint55, checkpoint57, checkpoint56, checkpoint58f_post, checkpoint57n_post, checkpoint58d_post, checkpoint62s, checkpoint58a_post, checkpoint62r, checkpoint62q, checkpoint62p, checkpoint57z_post, checkpoint54f_post, checkpoint62a, checkpoint62g, checkpoint62f, checkpoint62e, checkpoint62d, checkpoint62k, checkpoint62j, checkpoint62i, checkpoint62h, checkpoint62o, checkpoint62n, checkpoint62m, checkpoint62l, checkpoint62w, checkpoint62z, checkpoint62y, checkpoint62x, checkpoint58y_post, checkpoint58t_post, checkpoint55i_post, checkpoint58m_post, checkpoint57l_post, checkpoint57t_post, checkpoint55c_post, checkpoint63g, checkpoint57v_post, checkpoint57f_post, checkpoint64, checkpoint65, checkpoint60, checkpoint61, checkpoint62, checkpoint63, checkpoint57a_post, checkpoint57h_pre, checkpoint66g, checkpoint66f, checkpoint66e, checkpoint66d, checkpoint66c, checkpoint66b, checkpoint66a, checkpoint66o, checkpoint66n, checkpoint66m, checkpoint66l, checkpoint66k, checkpoint66j, checkpoint66i, checkpoint66h, checkpoint54b_post, checkpoint58w_post, checkpoint57h_post, checkpoint57y_pre, checkpoint55g_post, checkpoint58o_post, checkpoint57c_post, checkpoint58p_post, checkpoint58q_post, checkpoint55d_post, checkpoint58e_post, checkpoint63p, checkpoint63q, checkpoint63r, checkpoint63s, checkpoint63l, checkpoint63m, checkpoint63n, checkpoint63o, checkpoint63h, checkpoint63i, checkpoint63j, checkpoint63k, checkpoint63d, checkpoint63e, checkpoint63f, checkpoint63a, checkpoint63b, checkpoint63c, checkpoint55d_pre, checkpoint57c_pre, checkpoint58r_post, checkpoint55j_post, checkpoint55h_post, checkpoint58n_post, checkpoint57e_post, checkpoint55b_post, checkpoint65o, checkpoint59q, checkpoint59p, checkpoint59r, checkpoint59e, checkpoint59d, checkpoint59g, checkpoint59f, checkpoint59a, checkpoint55f_post, checkpoint59c, checkpoint59b, checkpoint59m, checkpoint59l, checkpoint59o, checkpoint59n, checkpoint59i, checkpoint59h, checkpoint59k, checkpoint57p_post, checkpint57u_post, checkpoint57q_post, eckpoint57e_pre, checkpoint58k_post, checkpoint62b, checkpoint58v_post, checkpoint56a_post, checkpoint64y, checkpoint64x, checkpoint58l_post, checkpoint64z, checkpoint64q, checkpoint64p, checkpoint64s, checkpoint64r, checkpoint64u, checkpoint64t, checkpoint64w, checkpoint64v, checkpoint64i, checkpoint64h, checkpoint64k, checkpoint64j, checkpoint64m, checkpoint64l, checkpoint64o, checkpoint64n, checkpoint64a, checkpoint64c, checkpoint64b, checkpoint64e, checkpoint64d, checkpoint64g, checkpoint64f, checkpoint57h_done, checkpoint57j_post, checkpoint57f_pre, checkpoint61f, checkpoint58g_post, checkpoint58x_post, checkpoint61n, checkpoint59j, checkpoint58h_post, checkpoint56c_post, checkpoint58j_post, checkpoint57a_pre, checkpoint55a_post, checkpoint57o_post, checkpoint61q, checkpoint57k_post, checkpoint57w_post, checkpoint61e, checkpoint58i_post, checkpoint57x_post, checkpoint58c_post, checkpoint58u_post, checkpoint58s_post, checkpoint55e_post, checkpoint61g, checkpoint61d, checkpoint54c_post, checkpoint61b, checkpoint61c, checkpoint61a, checkpoint61o, checkpoint61l, checkpoint61m, checkpoint61j, checkpoint61k, checkpoint61h, checkpoint61i, checkpoint61v, checkpoint61w, checkpoint61t, checkpoint61u, checkpoint61r, checkpoint61s, checkpoint61p, checkpoint61z, checkpoint61x, checkpoint61y, HEAD
Changes since 1.2: +6 -4 lines
File MIME type: text/plain
Modifications from Sonya Legg, James Girton and Ulriker Riemenscheider
pertaining to Orlanski radiation conditions for salt
 o NOTE these are only for eastern and western boundaries; someone needs
   to duplicate these mods for the northwen and southern boudnaries

1 C $Header: /u/u0/gcmpack/MITgcm/pkg/obcs/ORLANSKI.h,v 1.2 2001/02/02 21:36:29 adcroft Exp $
2 C $Name: release1_p5 $
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 cc
11
12 #ifdef ALLOW_ORLANSKI
13
14 COMMON /ORLANSKI_PARAMS/
15 & CMax, cVelTimeScale, CFix, useFixedCEast, useFixedCWest
16 _RL CMax, cVelTimeScale, CFix
17 LOGICAL useFixedCEast, useFixedCWest
18
19 C Storage arrays
20 COMMON /ORLANSKI_STORE/
21 & UE_STORE_1,UE_STORE_2,
22 & UE_STORE_3,UE_STORE_4,
23 & VE_STORE_1,VE_STORE_2,
24 & VE_STORE_3,VE_STORE_4,
25 & TE_STORE_1,TE_STORE_2,
26 & TE_STORE_3,TE_STORE_4,
27 & SE_STORE_1,SE_STORE_2,
28 & SE_STORE_3,SE_STORE_4,
29 & WE_STORE_1,WE_STORE_2,
30 & WE_STORE_3,WE_STORE_4,
31 & UW_STORE_1,UW_STORE_2,
32 & UW_STORE_3,UW_STORE_4,
33 & VW_STORE_1,VW_STORE_2,
34 & VW_STORE_3,VW_STORE_4,
35 & TW_STORE_1,TW_STORE_2,
36 & TW_STORE_3,TW_STORE_4,
37 & SW_STORE_1,SW_STORE_2,
38 & SW_STORE_3,SW_STORE_4,
39 & WW_STORE_1,WW_STORE_2,
40 & WW_STORE_3,WW_STORE_4,
41 & UN_STORE_1,UN_STORE_2,
42 & UN_STORE_3,UN_STORE_4,
43 & VN_STORE_1,VN_STORE_2,
44 & VN_STORE_3,VN_STORE_4,
45 & TN_STORE_1,TN_STORE_2,
46 & TN_STORE_3,TN_STORE_4,
47 & SN_STORE_1,SN_STORE_2,
48 & SN_STORE_3,SN_STORE_4,
49 & WN_STORE_1,WN_STORE_2,
50 & WN_STORE_3,WN_STORE_4,
51 & US_STORE_1,US_STORE_2,
52 & US_STORE_3,US_STORE_4,
53 & VS_STORE_1,VS_STORE_2,
54 & VS_STORE_3,VS_STORE_4,
55 & TS_STORE_1,TS_STORE_2,
56 & TS_STORE_3,TS_STORE_4,
57 & SS_STORE_1,SS_STORE_2,
58 & SS_STORE_3,SS_STORE_4,
59 & WS_STORE_1,WS_STORE_2,
60 & WS_STORE_3,WS_STORE_4
61
62 _RL UE_STORE_1(1-OLy:sNy+OLy,Nr,nSx,nSy)
63 _RL UE_STORE_2(1-OLy:sNy+OLy,Nr,nSx,nSy)
64 _RL UE_STORE_3(1-OLy:sNy+OLy,Nr,nSx,nSy)
65 _RL UE_STORE_4(1-OLy:sNy+OLy,Nr,nSx,nSy)
66 _RL VE_STORE_1(1-OLy:sNy+OLy,Nr,nSx,nSy)
67 _RL VE_STORE_2(1-OLy:sNy+OLy,Nr,nSx,nSy)
68 _RL VE_STORE_3(1-OLy:sNy+OLy,Nr,nSx,nSy)
69 _RL VE_STORE_4(1-OLy:sNy+OLy,Nr,nSx,nSy)
70 _RL TE_STORE_1(1-OLy:sNy+OLy,Nr,nSx,nSy)
71 _RL TE_STORE_2(1-OLy:sNy+OLy,Nr,nSx,nSy)
72 _RL TE_STORE_3(1-OLy:sNy+OLy,Nr,nSx,nSy)
73 _RL TE_STORE_4(1-OLy:sNy+OLy,Nr,nSx,nSy)
74 _RL SE_STORE_1(1-OLy:sNy+OLy,Nr,nSx,nSy)
75 _RL SE_STORE_2(1-OLy:sNy+OLy,Nr,nSx,nSy)
76 _RL SE_STORE_3(1-OLy:sNy+OLy,Nr,nSx,nSy)
77 _RL SE_STORE_4(1-OLy:sNy+OLy,Nr,nSx,nSy)
78 _RL WE_STORE_1(1-OLy:sNy+OLy,Nr,nSx,nSy)
79 _RL WE_STORE_2(1-OLy:sNy+OLy,Nr,nSx,nSy)
80 _RL WE_STORE_3(1-OLy:sNy+OLy,Nr,nSx,nSy)
81 _RL WE_STORE_4(1-OLy:sNy+OLy,Nr,nSx,nSy)
82 _RL UW_STORE_1(1-OLy:sNy+OLy,Nr,nSx,nSy)
83 _RL UW_STORE_2(1-OLy:sNy+OLy,Nr,nSx,nSy)
84 _RL UW_STORE_3(1-OLy:sNy+OLy,Nr,nSx,nSy)
85 _RL UW_STORE_4(1-OLy:sNy+OLy,Nr,nSx,nSy)
86 _RL VW_STORE_1(1-OLy:sNy+OLy,Nr,nSx,nSy)
87 _RL VW_STORE_2(1-OLy:sNy+OLy,Nr,nSx,nSy)
88 _RL VW_STORE_3(1-OLy:sNy+OLy,Nr,nSx,nSy)
89 _RL VW_STORE_4(1-OLy:sNy+OLy,Nr,nSx,nSy)
90 _RL TW_STORE_1(1-OLy:sNy+OLy,Nr,nSx,nSy)
91 _RL TW_STORE_2(1-OLy:sNy+OLy,Nr,nSx,nSy)
92 _RL TW_STORE_3(1-OLy:sNy+OLy,Nr,nSx,nSy)
93 _RL TW_STORE_4(1-OLy:sNy+OLy,Nr,nSx,nSy)
94 _RL SW_STORE_1(1-OLy:sNy+OLy,Nr,nSx,nSy)
95 _RL SW_STORE_2(1-OLy:sNy+OLy,Nr,nSx,nSy)
96 _RL SW_STORE_3(1-OLy:sNy+OLy,Nr,nSx,nSy)
97 _RL SW_STORE_4(1-OLy:sNy+OLy,Nr,nSx,nSy)
98 _RL WW_STORE_1(1-OLy:sNy+OLy,Nr,nSx,nSy)
99 _RL WW_STORE_2(1-OLy:sNy+OLy,Nr,nSx,nSy)
100 _RL WW_STORE_3(1-OLy:sNy+OLy,Nr,nSx,nSy)
101 _RL WW_STORE_4(1-OLy:sNy+OLy,Nr,nSx,nSy)
102 _RL UN_STORE_1(1-OLx:sNx+OLx,Nr,nSx,nSy)
103 _RL UN_STORE_2(1-OLx:sNx+OLx,Nr,nSx,nSy)
104 _RL UN_STORE_3(1-OLx:sNx+OLx,Nr,nSx,nSy)
105 _RL UN_STORE_4(1-OLx:sNx+OLx,Nr,nSx,nSy)
106 _RL VN_STORE_1(1-OLx:sNx+OLx,Nr,nSx,nSy)
107 _RL VN_STORE_2(1-OLx:sNx+OLx,Nr,nSx,nSy)
108 _RL VN_STORE_3(1-OLx:sNx+OLx,Nr,nSx,nSy)
109 _RL VN_STORE_4(1-OLx:sNx+OLx,Nr,nSx,nSy)
110 _RL TN_STORE_1(1-OLx:sNx+OLx,Nr,nSx,nSy)
111 _RL TN_STORE_2(1-OLx:sNx+OLx,Nr,nSx,nSy)
112 _RL TN_STORE_3(1-OLx:sNx+OLx,Nr,nSx,nSy)
113 _RL TN_STORE_4(1-OLx:sNx+OLx,Nr,nSx,nSy)
114 _RL SN_STORE_1(1-OLx:sNx+OLx,Nr,nSx,nSy)
115 _RL SN_STORE_2(1-OLx:sNx+OLx,Nr,nSx,nSy)
116 _RL SN_STORE_3(1-OLx:sNx+OLx,Nr,nSx,nSy)
117 _RL SN_STORE_4(1-OLx:sNx+OLx,Nr,nSx,nSy)
118 _RL WN_STORE_1(1-OLx:sNx+OLx,Nr,nSx,nSy)
119 _RL WN_STORE_2(1-OLx:sNx+OLx,Nr,nSx,nSy)
120 _RL WN_STORE_3(1-OLx:sNx+OLx,Nr,nSx,nSy)
121 _RL WN_STORE_4(1-OLx:sNx+OLx,Nr,nSx,nSy)
122 _RL US_STORE_1(1-OLx:sNx+OLx,Nr,nSx,nSy)
123 _RL US_STORE_2(1-OLx:sNx+OLx,Nr,nSx,nSy)
124 _RL US_STORE_3(1-OLx:sNx+OLx,Nr,nSx,nSy)
125 _RL US_STORE_4(1-OLx:sNx+OLx,Nr,nSx,nSy)
126 _RL VS_STORE_1(1-OLx:sNx+OLx,Nr,nSx,nSy)
127 _RL VS_STORE_2(1-OLx:sNx+OLx,Nr,nSx,nSy)
128 _RL VS_STORE_3(1-OLx:sNx+OLx,Nr,nSx,nSy)
129 _RL VS_STORE_4(1-OLx:sNx+OLx,Nr,nSx,nSy)
130 _RL TS_STORE_1(1-OLx:sNx+OLx,Nr,nSx,nSy)
131 _RL TS_STORE_2(1-OLx:sNx+OLx,Nr,nSx,nSy)
132 _RL TS_STORE_3(1-OLx:sNx+OLx,Nr,nSx,nSy)
133 _RL TS_STORE_4(1-OLx:sNx+OLx,Nr,nSx,nSy)
134 _RL SS_STORE_1(1-OLx:sNx+OLx,Nr,nSx,nSy)
135 _RL SS_STORE_2(1-OLx:sNx+OLx,Nr,nSx,nSy)
136 _RL SS_STORE_3(1-OLx:sNx+OLx,Nr,nSx,nSy)
137 _RL SS_STORE_4(1-OLx:sNx+OLx,Nr,nSx,nSy)
138 _RL WS_STORE_1(1-OLx:sNx+OLx,Nr,nSx,nSy)
139 _RL WS_STORE_2(1-OLx:sNx+OLx,Nr,nSx,nSy)
140 _RL WS_STORE_3(1-OLx:sNx+OLx,Nr,nSx,nSy)
141 _RL WS_STORE_4(1-OLx:sNx+OLx,Nr,nSx,nSy)
142
143 C Phase speed arrays
144 COMMON /ORLANSKI_CVEL/
145 & CVEL_UE,CVEL_VE,CVEL_TE,CVEL_SE,CVEL_WE,
146 & CVEL_UW,CVEL_VW,CVEL_TW,CVEL_SW,CVEL_WW,
147 & CVEL_UN,CVEL_VN,CVEL_TN,CVEL_SN,CVEL_WN,
148 & CVEL_US,CVEL_VS,CVEL_TS,CVEL_SS,CVEL_WS
149
150 _RL CVEL_UE(1-OLy:sNy+OLy,Nr,nSx,nSy)
151 _RL CVEL_VE(1-OLy:sNy+OLy,Nr,nSx,nSy)
152 _RL CVEL_TE(1-OLy:sNy+OLy,Nr,nSx,nSy)
153 _RL CVEL_SE(1-OLy:sNy+OLy,Nr,nSx,nSy)
154 _RL CVEL_WE(1-OLy:sNy+OLy,Nr,nSx,nSy)
155 _RL CVEL_UW(1-OLy:sNy+OLy,Nr,nSx,nSy)
156 _RL CVEL_VW(1-OLy:sNy+OLy,Nr,nSx,nSy)
157 _RL CVEL_TW(1-OLy:sNy+OLy,Nr,nSx,nSy)
158 _RL CVEL_SW(1-OLy:sNy+OLy,Nr,nSx,nSy)
159 _RL CVEL_WW(1-OLy:sNy+OLy,Nr,nSx,nSy)
160 _RL CVEL_UN(1-OLx:sNx+OLx,Nr,nSx,nSy)
161 _RL CVEL_VN(1-OLx:sNx+OLx,Nr,nSx,nSy)
162 _RL CVEL_TN(1-OLx:sNx+OLx,Nr,nSx,nSy)
163 _RL CVEL_SN(1-OLx:sNx+OLx,Nr,nSx,nSy)
164 _RL CVEL_WN(1-OLx:sNx+OLx,Nr,nSx,nSy)
165 _RL CVEL_US(1-OLx:sNx+OLx,Nr,nSx,nSy)
166 _RL CVEL_VS(1-OLx:sNx+OLx,Nr,nSx,nSy)
167 _RL CVEL_TS(1-OLx:sNx+OLx,Nr,nSx,nSy)
168 _RL CVEL_SS(1-OLx:sNx+OLx,Nr,nSx,nSy)
169 _RL CVEL_WS(1-OLx:sNx+OLx,Nr,nSx,nSy)
170
171 #endif /* ALLOW_ORLANSKI */

  ViewVC Help
Powered by ViewVC 1.1.22