| File |
Line number |
Procedure |
Code |
|
./pkg/mom_fluxform/mom_v_yviscflux.F |
61 |
MOM_V_YVISCFLUX |
& *cosFacU(J,bi,bj) |
|
./pkg/mom_fluxform/mom_v_yviscflux.F |
68 |
MOM_V_YVISCFLUX |
& *cosFacU(J,bi,bj) |
|
./pkg/mom_fluxform/mom_u_xviscflux.F |
60 |
MOM_U_XVISCFLUX |
& *cosFacU(J,bi,bj) |
|
./pkg/mom_fluxform/mom_u_xviscflux.F |
65 |
MOM_U_XVISCFLUX |
& *cosFacU(J,bi,bj) |
|
./model/src/ini_spherical_polar_grid.F |
329 |
INI_SPHERICAL_POLAR_GRID |
cosFacU(J,bi,bj)=COS(yC(1,J,bi,bj)*deg2rad) |
|
./model/src/ini_spherical_polar_grid.F |
333 |
INI_SPHERICAL_POLAR_GRID |
cosFacU(J,bi,bj)=ABS(cosFacU(J,bi,bj)) |
|
./model/src/ini_spherical_polar_grid.F |
335 |
INI_SPHERICAL_POLAR_GRID |
sqcosFacU(J,bi,bj)=sqrt(cosFacU(J,bi,bj)) |
|
./model/src/ini_spherical_polar_grid.F |
338 |
INI_SPHERICAL_POLAR_GRID |
cosFacU(J,bi,bj)=1. |
|
./model/src/calc_gw.F |
244 |
CALC_GW |
& *cosFacU(j,bi,bj) |
|
./model/src/calc_gw.F |
252 |
CALC_GW |
& *cosFacU(j,bi,bj) |
|
./model/src/ini_cylinder_grid.F |
233 |
INI_CYLINDER_GRID |
cosFacU(J,bi,bj)=1. |
|
./model/src/ini_curvilinear_grid.F |
101 |
INI_CURVILINEAR_GRID |
cosFacU(J,bi,bj)=1. |
|
./model/src/ini_cartesian_grid.F |
208 |
INI_CARTESIAN_GRID |
cosFacU(J,bi,bj)=1. |
|
./pkg/mom_common/mom_u_sidedrag.F |
130 |
MOM_U_SIDEDRAG |
& *( viscAh_Z(i,j )*uFld(i,j)*cosFacU(j,bi,bj) |
|
./pkg/mom_common/mom_u_sidedrag.F |
134 |
MOM_U_SIDEDRAG |
& -viscA4_Z(i,j )*del2u(i,j)*cosFacU(j,bi,bj) ) |
|
./pkg/mom_common/mom_u_sidedrag.F |
142 |
MOM_U_SIDEDRAG |
& *( viscAh_Z(i,j+1)*uFld(i,j)*cosFacU(j,bi,bj) |
|
./pkg/mom_common/mom_u_sidedrag.F |
146 |
MOM_U_SIDEDRAG |
& -viscA4_Z(i,j+1)*del2u(i,j)*cosFacU(j,bi,bj) ) |
|
./pkg/mom_common/mom_u_sidedrag.F |
94 |
MOM_U_SIDEDRAG |
& viscAh*uFld(i,j)*cosFacU(j,bi,bj) |
|
./pkg/mom_common/mom_u_sidedrag.F |
98 |
MOM_U_SIDEDRAG |
& -viscA4*del2u(i,j)*cosFacU(j,bi,bj) |
|
./pkg/mom_common/mom_w_sidedrag.F |
89 |
MOM_W_SIDEDRAG |
& *cosFacU(j,bi,bj) |
|
./pkg/mom_common/mom_w_sidedrag.F |
99 |
MOM_W_SIDEDRAG |
& *cosFacU(j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
157 |
MOM_VI_HDISSIP |
& ( (Dij-Dmj)*cosFacU(j,bi,bj) ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
160 |
MOM_VI_HDISSIP |
& *cosFacU(j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
172 |
MOM_VI_HDISSIP |
& viscA4*( (Dij-Dmj)*cosFacU(j,bi,bj) ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
175 |
MOM_VI_HDISSIP |
& *cosFacU(j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
187 |
MOM_VI_HDISSIP |
& cosFacU(j,bi,bj)*( Dij-Dmj )*recip_DXC(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
190 |
MOM_VI_HDISSIP |
& *cosFacU(j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
201 |
MOM_VI_HDISSIP |
& cosFacU(j,bi,bj)*( Dij-Dmj )*recip_DXC(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
205 |
MOM_VI_HDISSIP |
& *cosFacU(j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
79 |
MOM_VI_HDISSIP |
& cosFacU(j,bi,bj)*( Dij-Dmj )*recip_DXC(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
82 |
MOM_VI_HDISSIP |
& *cosFacU(j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
93 |
MOM_VI_HDISSIP |
& cosFacU(j,bi,bj)*( Dij-Dmj )*recip_DXC(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
97 |
MOM_VI_HDISSIP |
& *cosFacU(j,bi,bj) |
|
./pkg/seaice/diffus.F |
77 |
DIFFUS |
& * cosFacU(J,bi,bj) * HEFFM(I+1,J,bi,bj) |
|
./pkg/seaice/diffus.F |
80 |
DIFFUS |
& * cosFacU(J,bi,bj) * HEFFM(I-1,J,bi,bj) |