File |
Line number |
Procedure |
Code |
./pkg/mom_common/mom_calc_smag_3d.F |
104 |
MOM_CALC_SMAG_3D |
S12(i,j,n) = 0. _d 0 |
./pkg/mom_common/mom_calc_smag_3d.F |
132 |
MOM_CALC_SMAG_3D |
& + 0.5*( S12( i ,j+1, n )+S12(i+1,j+1, n ) |
./pkg/mom_common/mom_calc_smag_3d.F |
133 |
MOM_CALC_SMAG_3D |
& +S12( i , j , n )+S12(i+1, j , n ) ) |
./pkg/mom_common/mom_calc_smag_3d.F |
150 |
MOM_CALC_SMAG_3D |
& + 2.0 * S12( i , j , n ) |
./pkg/mom_common/mom_calc_smag_3d.F |
185 |
MOM_CALC_SMAG_3D |
& + 0.5 *( S12( i , j ,n-1)+S12( i ,j+1,n-1) |
./pkg/mom_common/mom_calc_smag_3d.F |
186 |
MOM_CALC_SMAG_3D |
& +S12( i , j , n )+S12( i ,j+1, n ) ) |
./pkg/mom_common/mom_calc_smag_3d.F |
202 |
MOM_CALC_SMAG_3D |
& + 0.5 *( S12( i , j ,n-1)+S12(i+1, j ,n-1) |
./pkg/mom_common/mom_calc_smag_3d.F |
203 |
MOM_CALC_SMAG_3D |
& +S12( i , j , n )+S12(i+1, j , n ) ) |
./pkg/mom_common/mom_calc_smag_3d.F |
81 |
MOM_CALC_SMAG_3D |
_RL S12(1-OLx:sNx+OLx,1-OLy:sNy+OLy,2) |
./pkg/mom_common/mom_calc_smag_3d.F |
97 |
MOM_CALC_SMAG_3D |
S12(i,j,n) = str12(i,j,kl)**2 |