| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_calc_strainrates.F |
150 |
SEAICE_CALC_STRAINRATES |
hFacU = _maskW(i,j,k,bi,bj) - _maskW(i,j-1,k,bi,bj) |
|
./pkg/seaice/seaice_calc_strainrates.F |
160 |
SEAICE_CALC_STRAINRATES |
& 2.0 _d 0 * uave(i,j) * _recip_dyU(i,j,bi,bj) * hFacU |
|
./pkg/seaice/seaice_calc_strainrates.F |
173 |
SEAICE_CALC_STRAINRATES |
hFacU = (_maskW(i,j,k,bi,bj) - _maskW(i,j-1,k,bi,bj))*third |
|
./pkg/seaice/seaice_calc_strainrates.F |
175 |
SEAICE_CALC_STRAINRATES |
hFacU = hFacU*( _maskW(i,j-2,k,bi,bj)*_maskW(i,j-1,k,bi,bj) |
|
./pkg/seaice/seaice_calc_strainrates.F |
194 |
SEAICE_CALC_STRAINRATES |
& - uFld(i,j+1,bi,bj)*_maskW(i,j ,k,bi,bj) ) * hFacU |
|
./pkg/seaice/seaice_calc_strainrates.F |
77 |
SEAICE_CALC_STRAINRATES |
_RS hFacU, hFacV, noSlipFac |