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

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

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

Revision 1.2 - (hide annotations) (download)
Fri Feb 2 21:36:29 2001 UTC (23 years, 5 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 adcroft 1.2 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