File |
Line number |
Procedure |
Code |
./pkg/mom_common/mom_calc_smag_3d.F |
103 |
MOM_CALC_SMAG_3D |
S66(i,j,n) = 0. _d 0 |
./pkg/mom_common/mom_calc_smag_3d.F |
131 |
MOM_CALC_SMAG_3D |
& S66( i , j , n ) |
./pkg/mom_common/mom_calc_smag_3d.F |
148 |
MOM_CALC_SMAG_3D |
& 0.25*( S66(i-1, j , n )+S66( i , j , n ) |
./pkg/mom_common/mom_calc_smag_3d.F |
149 |
MOM_CALC_SMAG_3D |
& +S66(i-1,j-1, n )+S66( i ,j-1, n ) ) |
./pkg/mom_common/mom_calc_smag_3d.F |
183 |
MOM_CALC_SMAG_3D |
& 0.25*( S66(i-1, j ,n-1)+S66( i , j ,n-1) |
./pkg/mom_common/mom_calc_smag_3d.F |
184 |
MOM_CALC_SMAG_3D |
& +S66(i-1, j , n )+S66( i , j , n ) ) |
./pkg/mom_common/mom_calc_smag_3d.F |
200 |
MOM_CALC_SMAG_3D |
& 0.25*( S66( i ,j-1,n-1)+S66( i , j ,n-1) |
./pkg/mom_common/mom_calc_smag_3d.F |
201 |
MOM_CALC_SMAG_3D |
& +S66( i ,j-1, n )+S66( i , j , n ) ) |
./pkg/mom_common/mom_calc_smag_3d.F |
80 |
MOM_CALC_SMAG_3D |
_RL S66(1-OLx:sNx+OLx,1-OLy:sNy+OLy,2) |
./pkg/mom_common/mom_calc_smag_3d.F |
94 |
MOM_CALC_SMAG_3D |
S66(i,j,n) = str11(i,j,kl)**2 |