| File |
Line number |
Procedure |
Code |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
100 |
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 |
105 |
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 |
110 |
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 |
115 |
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 |
139 |
MOM_VI_U_CORIOLIS_C4 |
vort3u=vort3r(i,j) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
141 |
MOM_VI_U_CORIOLIS_C4 |
vort3u=vort3r(i,j+1) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
145 |
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 |
146 |
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 |
148 |
MOM_VI_U_CORIOLIS_C4 |
Rjp = vort3r(i,j+2) - vort3r(i,j+1) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
149 |
MOM_VI_U_CORIOLIS_C4 |
Rjm = vort3r(i, j ) - vort3r(i,j-1) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
151 |
MOM_VI_U_CORIOLIS_C4 |
vort3u=0.5*( (vort3r(i,j) + vort3r(i,j+1)) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
155 |
MOM_VI_U_CORIOLIS_C4 |
vort3u=0.5*( vort3r(i,j) + vort3r(i,j+1) ) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
180 |
MOM_VI_U_CORIOLIS_C4 |
vort3u=vBarXm*vort3r(i, j ) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
182 |
MOM_VI_U_CORIOLIS_C4 |
vort3u=vBarXp*vort3r(i,j+1) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
186 |
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 |
187 |
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 |
189 |
MOM_VI_U_CORIOLIS_C4 |
Rjp = vort3r(i,j+2) - vort3r(i,j+1) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
190 |
MOM_VI_U_CORIOLIS_C4 |
Rjm = vort3r(i, j ) - vort3r(i,j-1) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
192 |
MOM_VI_U_CORIOLIS_C4 |
Rj = vort3r(i,j+1) - vort3r(i, j ) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
193 |
MOM_VI_U_CORIOLIS_C4 |
Rjp = vort3r(i,j+1) -oneSixth*( Rjp-Rj ) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
194 |
MOM_VI_U_CORIOLIS_C4 |
Rjm = vort3r(i, j ) -oneSixth*( Rj-Rjm ) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
199 |
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 |
52 |
MOM_VI_U_CORIOLIS_C4 |
_RL vort3r(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
72 |
MOM_VI_U_CORIOLIS_C4 |
vort3r(i,j) = r_hFacZ(i,j)*omega3(i,j) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
100 |
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 |
105 |
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 |
110 |
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 |
115 |
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 |
139 |
MOM_VI_V_CORIOLIS_C4 |
vort3v=vort3r(i,j) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
141 |
MOM_VI_V_CORIOLIS_C4 |
vort3v=vort3r(i+1,j) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
145 |
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 |
146 |
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 |
148 |
MOM_VI_V_CORIOLIS_C4 |
Rjp = vort3r(i+2,j) - vort3r(i+1,j) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
149 |
MOM_VI_V_CORIOLIS_C4 |
Rjm = vort3r( i ,j) - vort3r(i-1,j) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
151 |
MOM_VI_V_CORIOLIS_C4 |
vort3v=0.5*( (vort3r(i,j) + vort3r(i+1,j)) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
155 |
MOM_VI_V_CORIOLIS_C4 |
vort3v=0.5*( vort3r(i,j) + vort3r(i+1,j) ) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
180 |
MOM_VI_V_CORIOLIS_C4 |
vort3v=uBarYm*vort3r( i ,j) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
182 |
MOM_VI_V_CORIOLIS_C4 |
vort3v=uBarYp*vort3r(i+1,j) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
186 |
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 |
187 |
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 |
189 |
MOM_VI_V_CORIOLIS_C4 |
Rjp = vort3r(i+2,j) - vort3r(i+1,j) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
190 |
MOM_VI_V_CORIOLIS_C4 |
Rjm = vort3r( i ,j) - vort3r(i-1,j) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
192 |
MOM_VI_V_CORIOLIS_C4 |
Rj = vort3r(i+1,j) - vort3r( i ,j) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
193 |
MOM_VI_V_CORIOLIS_C4 |
Rjp = vort3r(i+1,j) -oneSixth*( Rjp-Rj ) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
194 |
MOM_VI_V_CORIOLIS_C4 |
Rjm = vort3r( i ,j) -oneSixth*( Rj-Rjm ) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
199 |
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 |
52 |
MOM_VI_V_CORIOLIS_C4 |
_RL vort3r(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
72 |
MOM_VI_V_CORIOLIS_C4 |
vort3r(i,j) = r_hFacZ(i,j)*omega3(i,j) |