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

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

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

revision 1.1 by adcroft, Tue Jan 30 21:03:00 2001 UTC revision 1.2 by adcroft, Fri Feb 2 21:36:29 2001 UTC
# Line 0  Line 1 
1    C $Header$
2    C $Name$
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 */
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22