| File |
Line number |
Procedure |
Code |
|
./model/inc/GRID.h |
314 |
NO PROCEDURE |
& cosFacU, cosFacV, sqCosFacU, sqCosFacV, |
|
./model/inc/GRID.h |
319 |
NO PROCEDURE |
_RL cosFacV (1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/generic_advdiff/gad_biharm_y.F |
64 |
GAD_BIHARM_Y |
& *cosFacV(j,bi,bj) |
|
./pkg/generic_advdiff/gad_diff_y.F |
60 |
GAD_DIFF_Y |
& *cosFacV(j,bi,bj) |
|
./model/src/calc_gw.F |
390 |
CALC_GW |
& *cosFacV(j,bi,bj) |
|
./model/src/calc_gw.F |
399 |
CALC_GW |
& *cosFacV(j,bi,bj) |
|
./pkg/mom_common/mom_v_sidedrag.F |
117 |
MOM_V_SIDEDRAG |
& *( viscAh_Z(i ,j)*vFld(i,j)*cosFacV(j,bi,bj) |
|
./pkg/mom_common/mom_v_sidedrag.F |
121 |
MOM_V_SIDEDRAG |
& -viscA4_Z(i ,j)*del2v(i,j)*cosFacV(j,bi,bj) ) |
|
./pkg/mom_common/mom_v_sidedrag.F |
124 |
MOM_V_SIDEDRAG |
& *( viscAh_Z(i+1,j)*vFld(i,j)*cosFacV(j,bi,bj) |
|
./pkg/mom_common/mom_v_sidedrag.F |
128 |
MOM_V_SIDEDRAG |
& -viscA4_Z(i+1,j)*del2v(i,j)*cosFacV(j,bi,bj) ) |
|
./pkg/mom_common/mom_v_sidedrag.F |
90 |
MOM_V_SIDEDRAG |
& Ahtmp*vFld(i,j)*cosFacV(j,bi,bj) |
|
./pkg/mom_common/mom_v_sidedrag.F |
94 |
MOM_V_SIDEDRAG |
& -A4tmp*del2v(i,j)*cosFacV(j,bi,bj) |
|
./pkg/mom_common/mom_w_sidedrag.F |
105 |
MOM_W_SIDEDRAG |
& *cosFacV(j,bi,bj) |
|
./pkg/mom_common/mom_w_sidedrag.F |
112 |
MOM_W_SIDEDRAG |
& *cosFacV(j,bi,bj) |
|
./pkg/mom_common/mom_w_sidedrag.F |
119 |
MOM_W_SIDEDRAG |
& *cosFacV(j+1,bi,bj) |
|
./pkg/mom_common/mom_w_sidedrag.F |
126 |
MOM_W_SIDEDRAG |
& *cosFacV(j+1,bi,bj) |
|
./pkg/mom_common/mom_w_sidedrag.F |
84 |
MOM_W_SIDEDRAG |
& *cosFacV(j,bi,bj) |
|
./pkg/mom_common/mom_w_sidedrag.F |
94 |
MOM_W_SIDEDRAG |
& *cosFacV(j,bi,bj) |
|
./pkg/mom_fluxform/mom_u_yviscflux.F |
62 |
MOM_U_YVISCFLUX |
& *cosFacV(J,bi,bj) |
|
./pkg/mom_fluxform/mom_u_yviscflux.F |
69 |
MOM_U_YVISCFLUX |
& *cosFacV(J,bi,bj) |
|
./pkg/mom_fluxform/mom_v_xviscflux.F |
61 |
MOM_V_XVISCFLUX |
& *cosFacV(J,bi,bj) |
|
./pkg/mom_fluxform/mom_v_xviscflux.F |
66 |
MOM_V_XVISCFLUX |
& *cosFacV(J,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
100 |
MOM_VI_HDISSIP |
& cosFacV(j,bi,bj)*( Zpj-Zij )*recip_DXG(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
103 |
MOM_VI_HDISSIP |
& *cosFacV(j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
164 |
MOM_VI_HDISSIP |
& _recip_hFacS(i,j,k,bi,bj)*( (Zpj-Zij)*cosFacV(j,bi,bj) ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
167 |
MOM_VI_HDISSIP |
& *cosFacV(j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
179 |
MOM_VI_HDISSIP |
& *cosFacV(j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
182 |
MOM_VI_HDISSIP |
& *cosFacV(j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
225 |
MOM_VI_HDISSIP |
& _recip_hFacS(i,j,k,bi,bj)*viscA4Z*( Zpj-Zij )*cosFacV(j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
228 |
MOM_VI_HDISSIP |
& *cosFacV(j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
240 |
MOM_VI_HDISSIP |
& cosFacV(j,bi,bj)*( Zpj-Zij )*recip_DXG(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
243 |
MOM_VI_HDISSIP |
& *cosFacV(j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
70 |
MOM_VI_HDISSIP |
& *cosFacV(j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
73 |
MOM_VI_HDISSIP |
& *cosFacV(j,bi,bj) |
|
./pkg/seaice/diffus.F |
79 |
DIFFUS |
& * cosFacV(j,bi,bj) |
|
./model/src/ini_grid.F |
109 |
INI_GRID |
cosFacV(j,bi,bj) = 1. |
|
./model/src/ini_spherical_polar_grid.F |
264 |
INI_SPHERICAL_POLAR_GRID |
cosFacV(j,bi,bj) = ABS( COS(lat*deg2rad) )**cosPower |
|
./model/src/ini_spherical_polar_grid.F |
266 |
INI_SPHERICAL_POLAR_GRID |
sqcosFacV(j,bi,bj) = SQRT(cosFacV(j,bi,bj)) |
|
./model/src/ini_spherical_polar_grid.F |
269 |
INI_SPHERICAL_POLAR_GRID |
cosFacV(j,bi,bj) = 1. |