| File |
Line number |
Procedure |
Code |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
103 |
MOM_VI_U_CORIOLIS_C4 |
vort3r(i,j-1) = ( vort3r(i,j-1) + vort3r(i-1,j) )*0.5 _d 0 |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
108 |
MOM_VI_U_CORIOLIS_C4 |
vort3r(i,j+1) = ( vort3r(i,j+1) + vort3r(i+1,j) )*0.5 _d 0 |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
113 |
MOM_VI_U_CORIOLIS_C4 |
vort3r(i,j+1) = ( vort3r(i,j+1) + vort3r(i-1,j) )*0.5 _d 0 |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
137 |
MOM_VI_U_CORIOLIS_C4 |
vort3u=vort3r(i,j) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
139 |
MOM_VI_U_CORIOLIS_C4 |
vort3u=vort3r(i,j+1) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
143 |
MOM_VI_U_CORIOLIS_C4 |
Rjp = ( vort3r(i,j+2) - vort3r(i,j+1) )*maskInW(i,j+1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
144 |
MOM_VI_U_CORIOLIS_C4 |
Rjm = ( vort3r(i, j ) - vort3r(i,j-1) )*maskInW(i,j-1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
146 |
MOM_VI_U_CORIOLIS_C4 |
Rjp = vort3r(i,j+2) - vort3r(i,j+1) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
147 |
MOM_VI_U_CORIOLIS_C4 |
Rjm = vort3r(i, j ) - vort3r(i,j-1) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
149 |
MOM_VI_U_CORIOLIS_C4 |
vort3u=0.5*( (vort3r(i,j) + vort3r(i,j+1)) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
153 |
MOM_VI_U_CORIOLIS_C4 |
vort3u=0.5*( vort3r(i,j) + vort3r(i,j+1) ) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
178 |
MOM_VI_U_CORIOLIS_C4 |
vort3u=vBarXm*vort3r(i, j ) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
180 |
MOM_VI_U_CORIOLIS_C4 |
vort3u=vBarXp*vort3r(i,j+1) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
184 |
MOM_VI_U_CORIOLIS_C4 |
Rjp = ( vort3r(i,j+2) - vort3r(i,j+1) )*maskInW(i,j+1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
185 |
MOM_VI_U_CORIOLIS_C4 |
Rjm = ( vort3r(i, j ) - vort3r(i,j-1) )*maskInW(i,j-1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
187 |
MOM_VI_U_CORIOLIS_C4 |
Rjp = vort3r(i,j+2) - vort3r(i,j+1) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
188 |
MOM_VI_U_CORIOLIS_C4 |
Rjm = vort3r(i, j ) - vort3r(i,j-1) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
190 |
MOM_VI_U_CORIOLIS_C4 |
Rj = vort3r(i,j+1) - vort3r(i, j ) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
191 |
MOM_VI_U_CORIOLIS_C4 |
Rjp = vort3r(i,j+1) -oneSixth*( Rjp+Rj ) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
192 |
MOM_VI_U_CORIOLIS_C4 |
Rjm = vort3r(i, j ) +oneSixth*( Rj+Rjm ) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
197 |
MOM_VI_U_CORIOLIS_C4 |
vort3u=0.5*( vBarXm*vort3r(i, j ) + vBarXp*vort3r(i,j+1) ) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
50 |
MOM_VI_U_CORIOLIS_C4 |
_RL vort3r(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
70 |
MOM_VI_U_CORIOLIS_C4 |
vort3r(i,j) = r_hFacZ(i,j)*omega3(i,j) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
98 |
MOM_VI_U_CORIOLIS_C4 |
vort3r(i,j-1) = ( vort3r(i,j-1) + vort3r(i+1,j) )*0.5 _d 0 |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
103 |
MOM_VI_V_CORIOLIS_C4 |
vort3r(i+1,j) = ( vort3r(i+1,j) + vort3r(i,j+1) )*0.5 _d 0 |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
108 |
MOM_VI_V_CORIOLIS_C4 |
vort3r(i-1,j) = ( vort3r(i-1,j) + vort3r(i,j-1) )*0.5 _d 0 |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
113 |
MOM_VI_V_CORIOLIS_C4 |
vort3r(i+1,j) = ( vort3r(i+1,j) + vort3r(i,j-1) )*0.5 _d 0 |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
137 |
MOM_VI_V_CORIOLIS_C4 |
vort3v=vort3r(i,j) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
139 |
MOM_VI_V_CORIOLIS_C4 |
vort3v=vort3r(i+1,j) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
143 |
MOM_VI_V_CORIOLIS_C4 |
Rjp = ( vort3r(i+2,j) - vort3r(i+1,j) )*maskInS(i+1,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
144 |
MOM_VI_V_CORIOLIS_C4 |
Rjm = ( vort3r( i ,j) - vort3r(i-1,j) )*maskInS(i-1,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
146 |
MOM_VI_V_CORIOLIS_C4 |
Rjp = vort3r(i+2,j) - vort3r(i+1,j) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
147 |
MOM_VI_V_CORIOLIS_C4 |
Rjm = vort3r( i ,j) - vort3r(i-1,j) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
149 |
MOM_VI_V_CORIOLIS_C4 |
vort3v=0.5*( (vort3r(i,j) + vort3r(i+1,j)) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
153 |
MOM_VI_V_CORIOLIS_C4 |
vort3v=0.5*( vort3r(i,j) + vort3r(i+1,j) ) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
178 |
MOM_VI_V_CORIOLIS_C4 |
vort3v=uBarYm*vort3r( i ,j) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
180 |
MOM_VI_V_CORIOLIS_C4 |
vort3v=uBarYp*vort3r(i+1,j) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
184 |
MOM_VI_V_CORIOLIS_C4 |
Rjp = ( vort3r(i+2,j) - vort3r(i+1,j) )*maskInS(i+1,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
185 |
MOM_VI_V_CORIOLIS_C4 |
Rjm = ( vort3r( i ,j) - vort3r(i-1,j) )*maskInS(i-1,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
187 |
MOM_VI_V_CORIOLIS_C4 |
Rjp = vort3r(i+2,j) - vort3r(i+1,j) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
188 |
MOM_VI_V_CORIOLIS_C4 |
Rjm = vort3r( i ,j) - vort3r(i-1,j) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
190 |
MOM_VI_V_CORIOLIS_C4 |
Rj = vort3r(i+1,j) - vort3r( i ,j) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
191 |
MOM_VI_V_CORIOLIS_C4 |
Rjp = vort3r(i+1,j) -oneSixth*( Rjp+Rj ) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
192 |
MOM_VI_V_CORIOLIS_C4 |
Rjm = vort3r( i ,j) +oneSixth*( Rj+Rjm ) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
197 |
MOM_VI_V_CORIOLIS_C4 |
vort3v=0.5*( uBarYm*vort3r( i ,j) + uBarYp*vort3r(i+1,j) ) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
50 |
MOM_VI_V_CORIOLIS_C4 |
_RL vort3r(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
70 |
MOM_VI_V_CORIOLIS_C4 |
vort3r(i,j) = r_hFacZ(i,j)*omega3(i,j) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
98 |
MOM_VI_V_CORIOLIS_C4 |
vort3r(i-1,j) = ( vort3r(i-1,j) + vort3r(i,j+1) )*0.5 _d 0 |