| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_calc_strainrates.F |
101 |
SEAICE_CALC_STRAINRATES |
uave(I,J) = 0.5 _d 0 * (uFld(I,J,bi,bj)+uFld(I ,J-1,bi,bj)) |
|
./pkg/seaice/seaice_calc_strainrates.F |
119 |
SEAICE_CALC_STRAINRATES |
& - k2AtZ(I,J,bi,bj) * uave(I,J) |
|
./pkg/seaice/seaice_calc_strainrates.F |
124 |
SEAICE_CALC_STRAINRATES |
& 2.0 _d 0 * uave(I,J) * _recip_dyU(I,J,bi,bj) * hFacU |
|
./pkg/seaice/seaice_calc_strainrates.F |
63 |
SEAICE_CALC_STRAINRATES |
_RL uave (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/seaice/seaice_calc_strainrates.F |
78 |
SEAICE_CALC_STRAINRATES |
uave(I,J) = 0.5 _d 0 * (uFld(I,J,bi,bj)+uFld(I+1,J,bi,bj)) |
|
./pkg/seaice/seaice_calc_strainrates.F |
92 |
SEAICE_CALC_STRAINRATES |
e22Loc(I,J,bi,bj) = dvdy(I,J) + uave(I,J) * k1AtC(I,J,bi,bj) |