| File |
Line number |
Procedure |
Code |
|
./pkg/obcs/orlanski_east.F |
113 |
ORLANSKI_EAST |
CL=0. |
|
./pkg/obcs/orlanski_east.F |
115 |
ORLANSKI_EAST |
CL=-(uVel(I_obc-1,J,K,bi,bj)-UE_STORE_1(J,K,bi,bj))/ |
|
./pkg/obcs/orlanski_east.F |
118 |
ORLANSKI_EAST |
IF (CL.lt.0.) THEN |
|
./pkg/obcs/orlanski_east.F |
119 |
ORLANSKI_EAST |
CL=0. |
|
./pkg/obcs/orlanski_east.F |
120 |
ORLANSKI_EAST |
ELSEIF (CL.gt.CMAX) THEN |
|
./pkg/obcs/orlanski_east.F |
121 |
ORLANSKI_EAST |
CL=CMAX |
|
./pkg/obcs/orlanski_east.F |
128 |
ORLANSKI_EAST |
CVEL_UE(J,K,bi,bj) = f1*(CL*dxF(I_obc-2,J,bi,bj)/deltaT |
|
./pkg/obcs/orlanski_east.F |
139 |
ORLANSKI_EAST |
CL=0. |
|
./pkg/obcs/orlanski_east.F |
141 |
ORLANSKI_EAST |
CL=-(vVel(I_obc-1,J,K,bi,bj)-VE_STORE_1(J,K,bi,bj))/ |
|
./pkg/obcs/orlanski_east.F |
144 |
ORLANSKI_EAST |
IF (CL.lt.0.) THEN |
|
./pkg/obcs/orlanski_east.F |
145 |
ORLANSKI_EAST |
CL=0. |
|
./pkg/obcs/orlanski_east.F |
146 |
ORLANSKI_EAST |
ELSEIF (CL.gt.CMAX) THEN |
|
./pkg/obcs/orlanski_east.F |
147 |
ORLANSKI_EAST |
CL=CMAX |
|
./pkg/obcs/orlanski_east.F |
154 |
ORLANSKI_EAST |
CVEL_VE(J,K,bi,bj) = f1*(CL*dxV(I_obc-1,J,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
165 |
ORLANSKI_EAST |
CL=0. |
|
./pkg/obcs/orlanski_east.F |
167 |
ORLANSKI_EAST |
CL=-(theta(I_obc-1,J,K,bi,bj)-TE_STORE_1(J,K,bi,bj))/ |
|
./pkg/obcs/orlanski_east.F |
170 |
ORLANSKI_EAST |
IF (CL.lt.0.) THEN |
|
./pkg/obcs/orlanski_east.F |
171 |
ORLANSKI_EAST |
CL=0. |
|
./pkg/obcs/orlanski_east.F |
172 |
ORLANSKI_EAST |
ELSEIF (CL.gt.CMAX) THEN |
|
./pkg/obcs/orlanski_east.F |
173 |
ORLANSKI_EAST |
CL=CMAX |
|
./pkg/obcs/orlanski_east.F |
180 |
ORLANSKI_EAST |
CVEL_TE(J,K,bi,bj) = f1*(CL*dxC(I_obc-1,J,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
191 |
ORLANSKI_EAST |
CL=0. |
|
./pkg/obcs/orlanski_east.F |
193 |
ORLANSKI_EAST |
CL=-(salt(I_obc-1,J,K,bi,bj)-SE_STORE_1(J,K,bi,bj))/ |
|
./pkg/obcs/orlanski_east.F |
196 |
ORLANSKI_EAST |
IF (CL.lt.0.) THEN |
|
./pkg/obcs/orlanski_east.F |
197 |
ORLANSKI_EAST |
CL=0. |
|
./pkg/obcs/orlanski_east.F |
198 |
ORLANSKI_EAST |
ELSEIF (CL.gt.CMAX) THEN |
|
./pkg/obcs/orlanski_east.F |
199 |
ORLANSKI_EAST |
CL=CMAX |
|
./pkg/obcs/orlanski_east.F |
206 |
ORLANSKI_EAST |
CVEL_SE(J,K,bi,bj) = f1*(CL*dxC(I_obc-1,J,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
219 |
ORLANSKI_EAST |
CL=0. |
|
./pkg/obcs/orlanski_east.F |
221 |
ORLANSKI_EAST |
CL=-(wVel(I_obc-1,J,K,bi,bj)-WE_STORE_1(J,K,bi,bj))/ |
|
./pkg/obcs/orlanski_east.F |
224 |
ORLANSKI_EAST |
IF (CL.lt.0.) THEN |
|
./pkg/obcs/orlanski_east.F |
225 |
ORLANSKI_EAST |
CL=0. |
|
./pkg/obcs/orlanski_east.F |
226 |
ORLANSKI_EAST |
ELSEIF (CL.gt.CMAX) THEN |
|
./pkg/obcs/orlanski_east.F |
227 |
ORLANSKI_EAST |
CL=CMAX |
|
./pkg/obcs/orlanski_east.F |
234 |
ORLANSKI_EAST |
CVEL_WE(J,K,bi,bj)=f1*(CL*dxC(I_obc-1,J,bi,bj)/deltaT) |
|
./pkg/obcs/orlanski_east.F |
94 |
ORLANSKI_EAST |
_RL CL, ab1, ab2, fracCVEL, f1, f2 |
|
./pkg/obcs/orlanski_north.F |
104 |
ORLANSKI_NORTH |
CL=0. |
|
./pkg/obcs/orlanski_north.F |
106 |
ORLANSKI_NORTH |
CL=-(uVel(I,J_obc-1,K,bi,bj)-UN_STORE_1(I,K,bi,bj))/ |
|
./pkg/obcs/orlanski_north.F |
109 |
ORLANSKI_NORTH |
IF (CL.lt.0.) THEN |
|
./pkg/obcs/orlanski_north.F |
110 |
ORLANSKI_NORTH |
CL=0. |
|
./pkg/obcs/orlanski_north.F |
111 |
ORLANSKI_NORTH |
ELSEIF (CL.gt.CMAX) THEN |
|
./pkg/obcs/orlanski_north.F |
112 |
ORLANSKI_NORTH |
CL=CMAX |
|
./pkg/obcs/orlanski_north.F |
114 |
ORLANSKI_NORTH |
CVEL_UN(I,K,bi,bj) = f1*(CL*dyU(I,J_obc-1,bi,bj)/deltaT)+ |
|
./pkg/obcs/orlanski_north.F |
124 |
ORLANSKI_NORTH |
CL=0. |
|
./pkg/obcs/orlanski_north.F |
126 |
ORLANSKI_NORTH |
CL=-(vVel(I,J_obc-1,K,bi,bj)-VN_STORE_1(I,K,bi,bj))/ |
|
./pkg/obcs/orlanski_north.F |
129 |
ORLANSKI_NORTH |
IF (CL.lt.0.) THEN |
|
./pkg/obcs/orlanski_north.F |
130 |
ORLANSKI_NORTH |
CL=0. |
|
./pkg/obcs/orlanski_north.F |
131 |
ORLANSKI_NORTH |
ELSEIF (CL.gt.CMAX) THEN |
|
./pkg/obcs/orlanski_north.F |
132 |
ORLANSKI_NORTH |
CL=CMAX |
|
./pkg/obcs/orlanski_north.F |
134 |
ORLANSKI_NORTH |
CVEL_VN(I,K,bi,bj) = f1*(CL*dyF(I,J_obc-2,bi,bj)/deltaT)+ |
|
./pkg/obcs/orlanski_north.F |
144 |
ORLANSKI_NORTH |
CL=0. |
|
./pkg/obcs/orlanski_north.F |
146 |
ORLANSKI_NORTH |
CL=-(theta(I,J_obc-1,K,bi,bj)-TN_STORE_1(I,K,bi,bj))/ |
|
./pkg/obcs/orlanski_north.F |
149 |
ORLANSKI_NORTH |
IF (CL.lt.0.) THEN |
|
./pkg/obcs/orlanski_north.F |
150 |
ORLANSKI_NORTH |
CL=0. |
|
./pkg/obcs/orlanski_north.F |
151 |
ORLANSKI_NORTH |
ELSEIF (CL.gt.CMAX) THEN |
|
./pkg/obcs/orlanski_north.F |
152 |
ORLANSKI_NORTH |
CL=CMAX |
|
./pkg/obcs/orlanski_north.F |
154 |
ORLANSKI_NORTH |
CVEL_TN(I,K,bi,bj) = f1*(CL*dyC(I,J_obc-1,bi,bj)/deltaT)+ |
|
./pkg/obcs/orlanski_north.F |
164 |
ORLANSKI_NORTH |
CL=0. |
|
./pkg/obcs/orlanski_north.F |
166 |
ORLANSKI_NORTH |
CL=-(salt(I,J_obc-1,K,bi,bj)-SN_STORE_1(I,K,bi,bj))/ |
|
./pkg/obcs/orlanski_north.F |
169 |
ORLANSKI_NORTH |
IF (CL.lt.0.) THEN |
|
./pkg/obcs/orlanski_north.F |
170 |
ORLANSKI_NORTH |
CL=0. |
|
./pkg/obcs/orlanski_north.F |
171 |
ORLANSKI_NORTH |
ELSEIF (CL.gt.CMAX) THEN |
|
./pkg/obcs/orlanski_north.F |
172 |
ORLANSKI_NORTH |
CL=CMAX |
|
./pkg/obcs/orlanski_north.F |
174 |
ORLANSKI_NORTH |
CVEL_SN(I,K,bi,bj) = f1*(CL*dyC(I,J_obc-1,bi,bj)/deltaT)+ |
|
./pkg/obcs/orlanski_north.F |
186 |
ORLANSKI_NORTH |
CL=0. |
|
./pkg/obcs/orlanski_north.F |
188 |
ORLANSKI_NORTH |
CL=-(wVel(I,J_obc-1,K,bi,bj)-WN_STORE_1(I,K,bi,bj))/ |
|
./pkg/obcs/orlanski_north.F |
191 |
ORLANSKI_NORTH |
IF (CL.lt.0.) THEN |
|
./pkg/obcs/orlanski_north.F |
192 |
ORLANSKI_NORTH |
CL=0. |
|
./pkg/obcs/orlanski_north.F |
193 |
ORLANSKI_NORTH |
ELSEIF (CL.gt.CMAX) THEN |
|
./pkg/obcs/orlanski_north.F |
194 |
ORLANSKI_NORTH |
CL=CMAX |
|
./pkg/obcs/orlanski_north.F |
196 |
ORLANSKI_NORTH |
CVEL_WN(I,K,bi,bj)=f1*(CL*dyC(I,J_obc-1,bi,bj)/deltaT) |
|
./pkg/obcs/orlanski_north.F |
85 |
ORLANSKI_NORTH |
_RL CL, ab1, ab2, fracCVEL, f1, f2 |
|
./pkg/obcs/orlanski_south.F |
104 |
ORLANSKI_SOUTH |
CL=0. |
|
./pkg/obcs/orlanski_south.F |
106 |
ORLANSKI_SOUTH |
CL=(uVel(I,J_obc+1,K,bi,bj)-US_STORE_1(I,K,bi,bj))/ |
|
./pkg/obcs/orlanski_south.F |
109 |
ORLANSKI_SOUTH |
IF (CL.lt.0.) THEN |
|
./pkg/obcs/orlanski_south.F |
110 |
ORLANSKI_SOUTH |
CL=0. |
|
./pkg/obcs/orlanski_south.F |
111 |
ORLANSKI_SOUTH |
ELSEIF (CL.gt.CMAX) THEN |
|
./pkg/obcs/orlanski_south.F |
112 |
ORLANSKI_SOUTH |
CL=CMAX |
|
./pkg/obcs/orlanski_south.F |
114 |
ORLANSKI_SOUTH |
CVEL_US(I,K,bi,bj) = f1*(CL*dyU(I,J_obc+2,bi,bj)/deltaT)+ |
|
./pkg/obcs/orlanski_south.F |
124 |
ORLANSKI_SOUTH |
CL=0. |
|
./pkg/obcs/orlanski_south.F |
126 |
ORLANSKI_SOUTH |
CL=(vVel(I,J_obc+2,K,bi,bj)-VS_STORE_1(I,K,bi,bj))/ |
|
./pkg/obcs/orlanski_south.F |
129 |
ORLANSKI_SOUTH |
IF (CL.lt.0.) THEN |
|
./pkg/obcs/orlanski_south.F |
130 |
ORLANSKI_SOUTH |
CL=0. |
|
./pkg/obcs/orlanski_south.F |
131 |
ORLANSKI_SOUTH |
ELSEIF (CL.gt.CMAX) THEN |
|
./pkg/obcs/orlanski_south.F |
132 |
ORLANSKI_SOUTH |
CL=CMAX |
|
./pkg/obcs/orlanski_south.F |
134 |
ORLANSKI_SOUTH |
CVEL_VS(I,K,bi,bj) = f1*(CL*dyF(I,J_obc+2,bi,bj)/deltaT)+ |
|
./pkg/obcs/orlanski_south.F |
144 |
ORLANSKI_SOUTH |
CL=0. |
|
./pkg/obcs/orlanski_south.F |
146 |
ORLANSKI_SOUTH |
CL=(theta(I,J_obc+1,K,bi,bj)-TS_STORE_1(I,K,bi,bj))/ |
|
./pkg/obcs/orlanski_south.F |
149 |
ORLANSKI_SOUTH |
IF (CL.lt.0.) THEN |
|
./pkg/obcs/orlanski_south.F |
150 |
ORLANSKI_SOUTH |
CL=0. |
|
./pkg/obcs/orlanski_south.F |
151 |
ORLANSKI_SOUTH |
ELSEIF (CL.gt.CMAX) THEN |
|
./pkg/obcs/orlanski_south.F |
152 |
ORLANSKI_SOUTH |
CL=CMAX |
|
./pkg/obcs/orlanski_south.F |
154 |
ORLANSKI_SOUTH |
CVEL_TS(I,K,bi,bj) = f1*(CL*dyC(I,J_obc+2,bi,bj)/deltaT)+ |
|
./pkg/obcs/orlanski_south.F |
164 |
ORLANSKI_SOUTH |
CL=0. |
|
./pkg/obcs/orlanski_south.F |
166 |
ORLANSKI_SOUTH |
CL=(salt(I,J_obc+1,K,bi,bj)-SS_STORE_1(I,K,bi,bj))/ |
|
./pkg/obcs/orlanski_south.F |
169 |
ORLANSKI_SOUTH |
IF (CL.lt.0.) THEN |
|
./pkg/obcs/orlanski_south.F |
170 |
ORLANSKI_SOUTH |
CL=0. |
|
./pkg/obcs/orlanski_south.F |
171 |
ORLANSKI_SOUTH |
ELSEIF (CL.gt.CMAX) THEN |
|
./pkg/obcs/orlanski_south.F |
172 |
ORLANSKI_SOUTH |
CL=CMAX |
|
./pkg/obcs/orlanski_south.F |
174 |
ORLANSKI_SOUTH |
CVEL_SS(I,K,bi,bj) = f1*(CL*dyC(I,J_obc+2,bi,bj)/deltaT)+ |
|
./pkg/obcs/orlanski_south.F |
186 |
ORLANSKI_SOUTH |
CL=0. |
|
./pkg/obcs/orlanski_south.F |
188 |
ORLANSKI_SOUTH |
CL=(wVel(I,J_obc+1,K,bi,bj)-WS_STORE_1(I,K,bi,bj))/ |
|
./pkg/obcs/orlanski_south.F |
191 |
ORLANSKI_SOUTH |
IF (CL.lt.0.) THEN |
|
./pkg/obcs/orlanski_south.F |
192 |
ORLANSKI_SOUTH |
CL=0. |
|
./pkg/obcs/orlanski_south.F |
193 |
ORLANSKI_SOUTH |
ELSEIF (CL.gt.CMAX) THEN |
|
./pkg/obcs/orlanski_south.F |
194 |
ORLANSKI_SOUTH |
CL=CMAX |
|
./pkg/obcs/orlanski_south.F |
196 |
ORLANSKI_SOUTH |
CVEL_WS(I,K,bi,bj)=f1*(CL*dyC(I,J_obc+2,bi,bj)/deltaT) |
|
./pkg/obcs/orlanski_south.F |
85 |
ORLANSKI_SOUTH |
_RL CL, ab1, ab2, fracCVEL, f1, f2 |
|
./pkg/obcs/orlanski_west.F |
115 |
ORLANSKI_WEST |
CL=0. |
|
./pkg/obcs/orlanski_west.F |
117 |
ORLANSKI_WEST |
CL=(uVel(I_obc+2,J,K,bi,bj)-UW_STORE_1(J,K,bi,bj))/ |
|
./pkg/obcs/orlanski_west.F |
120 |
ORLANSKI_WEST |
IF (CL.lt.0.) THEN |
|
./pkg/obcs/orlanski_west.F |
121 |
ORLANSKI_WEST |
CL=0. |
|
./pkg/obcs/orlanski_west.F |
122 |
ORLANSKI_WEST |
ELSEIF (CL.gt.CMAX) THEN |
|
./pkg/obcs/orlanski_west.F |
123 |
ORLANSKI_WEST |
CL=CMAX |
|
./pkg/obcs/orlanski_west.F |
130 |
ORLANSKI_WEST |
CVEL_UW(J,K,bi,bj) = f1*(CL*dxF(I_obc+2,J,bi,bj)/deltaT |
|
./pkg/obcs/orlanski_west.F |
141 |
ORLANSKI_WEST |
CL=0. |
|
./pkg/obcs/orlanski_west.F |
143 |
ORLANSKI_WEST |
CL=(vVel(I_obc+1,J,K,bi,bj)-VW_STORE_1(J,K,bi,bj))/ |
|
./pkg/obcs/orlanski_west.F |
146 |
ORLANSKI_WEST |
IF (CL.lt.0.) THEN |
|
./pkg/obcs/orlanski_west.F |
147 |
ORLANSKI_WEST |
CL=0. |
|
./pkg/obcs/orlanski_west.F |
148 |
ORLANSKI_WEST |
ELSEIF (CL.gt.CMAX) THEN |
|
./pkg/obcs/orlanski_west.F |
149 |
ORLANSKI_WEST |
CL=CMAX |
|
./pkg/obcs/orlanski_west.F |
156 |
ORLANSKI_WEST |
CVEL_VW(J,K,bi,bj) = f1*(CL*dxV(I_obc+2,J,bi,bj)/deltaT |
|
./pkg/obcs/orlanski_west.F |
167 |
ORLANSKI_WEST |
CL=0. |
|
./pkg/obcs/orlanski_west.F |
169 |
ORLANSKI_WEST |
CL=(theta(I_obc+1,J,K,bi,bj)-TW_STORE_1(J,K,bi,bj))/ |
|
./pkg/obcs/orlanski_west.F |
172 |
ORLANSKI_WEST |
IF (CL.lt.0.) THEN |
|
./pkg/obcs/orlanski_west.F |
173 |
ORLANSKI_WEST |
CL=0. |
|
./pkg/obcs/orlanski_west.F |
174 |
ORLANSKI_WEST |
ELSEIF (CL.gt.CMAX) THEN |
|
./pkg/obcs/orlanski_west.F |
175 |
ORLANSKI_WEST |
CL=CMAX |
|
./pkg/obcs/orlanski_west.F |
182 |
ORLANSKI_WEST |
CVEL_TW(J,K,bi,bj) = f1*(CL*dxC(I_obc+2,J,bi,bj)/deltaT |
|
./pkg/obcs/orlanski_west.F |
193 |
ORLANSKI_WEST |
CL=0. |
|
./pkg/obcs/orlanski_west.F |
195 |
ORLANSKI_WEST |
CL=(salt(I_obc+1,J,K,bi,bj)-SW_STORE_1(J,K,bi,bj))/ |
|
./pkg/obcs/orlanski_west.F |
198 |
ORLANSKI_WEST |
IF (CL.lt.0.) THEN |
|
./pkg/obcs/orlanski_west.F |
199 |
ORLANSKI_WEST |
CL=0. |
|
./pkg/obcs/orlanski_west.F |
200 |
ORLANSKI_WEST |
ELSEIF (CL.gt.CMAX) THEN |
|
./pkg/obcs/orlanski_west.F |
201 |
ORLANSKI_WEST |
CL=CMAX |
|
./pkg/obcs/orlanski_west.F |
208 |
ORLANSKI_WEST |
CVEL_SW(J,K,bi,bj) = f1*(CL*dxC(I_obc+2,J,bi,bj)/deltaT |
|
./pkg/obcs/orlanski_west.F |
221 |
ORLANSKI_WEST |
CL=0. |
|
./pkg/obcs/orlanski_west.F |
223 |
ORLANSKI_WEST |
CL=(wVel(I_obc+1,J,K,bi,bj)-WW_STORE_1(J,K,bi,bj))/ |
|
./pkg/obcs/orlanski_west.F |
226 |
ORLANSKI_WEST |
IF (CL.lt.0.) THEN |
|
./pkg/obcs/orlanski_west.F |
227 |
ORLANSKI_WEST |
CL=0. |
|
./pkg/obcs/orlanski_west.F |
228 |
ORLANSKI_WEST |
ELSEIF (CL.gt.CMAX) THEN |
|
./pkg/obcs/orlanski_west.F |
229 |
ORLANSKI_WEST |
CL=CMAX |
|
./pkg/obcs/orlanski_west.F |
236 |
ORLANSKI_WEST |
CVEL_WW(J,K,bi,bj)=f1*(CL*dxC(I_obc+2,J,bi,bj)/deltaT) |
|
./pkg/obcs/orlanski_west.F |
96 |
ORLANSKI_WEST |
_RL CL, ab1, ab2, fracCVEL, f1, f2 |