| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_calc_strainrates.F |
115 |
SEAICE_CALC_STRAINRATES |
hFacU = _maskW(i,j,k,bi,bj) - _maskW(i,j-1,k,bi,bj) |
|
./pkg/seaice/seaice_calc_strainrates.F |
125 |
SEAICE_CALC_STRAINRATES |
& 2.0 _d 0 * uave(I,J) * _recip_dyU(I,J,bi,bj) * hFacU |
|
./pkg/seaice/seaice_calc_strainrates.F |
178 |
SEAICE_CALC_STRAINRATES |
hFacU = _maskW(i,j,k,bi,bj) - _maskW(i,j-1,k,bi,bj) |
|
./pkg/seaice/seaice_calc_strainrates.F |
183 |
SEAICE_CALC_STRAINRATES |
& ( hFacU * ( _dxC(i,j-1,bi,bj)*uFld(i,j ,bi,bj) |
|
./pkg/seaice/seaice_calc_strainrates.F |
187 |
SEAICE_CALC_STRAINRATES |
& - hFacU |
|
./pkg/seaice/seaice_calc_strainrates.F |
56 |
SEAICE_CALC_STRAINRATES |
_RS hFacU, hFacV, noSlipFac |