| File |
Line number |
Procedure |
Code |
|
./pkg/mom_common/mom_u_sidedrag.F |
132 |
MOM_U_SIDEDRAG |
& -viscA4_Z(i,j )*del2u(i,j)*sqcosFacU(j,bi,bj) ) |
|
./pkg/mom_common/mom_u_sidedrag.F |
144 |
MOM_U_SIDEDRAG |
& -viscA4_Z(i,j+1)*del2u(i,j)*sqcosFacU(j,bi,bj) ) |
|
./pkg/mom_common/mom_u_sidedrag.F |
96 |
MOM_U_SIDEDRAG |
& -viscA4*del2u(i,j)*sqcosFacU(j,bi,bj) |
|
./model/src/ini_cartesian_grid.F |
228 |
INI_CARTESIAN_GRID |
sqcosFacU(j,bi,bj)=1. |
|
./model/src/ini_cylinder_grid.F |
238 |
INI_CYLINDER_GRID |
sqcosFacU(j,bi,bj)=1. |
|
./model/src/ini_spherical_polar_grid.F |
340 |
INI_SPHERICAL_POLAR_GRID |
sqcosFacU(j,bi,bj)=SQRT(cosFacU(j,bi,bj)) |
|
./model/src/ini_spherical_polar_grid.F |
345 |
INI_SPHERICAL_POLAR_GRID |
sqcosFacU(j,bi,bj)=1. |