| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_lsr.F |
1204 |
SEAICE_LSR_CALC_COEFFS |
_RL hFacM, hFacP |
|
./pkg/seaice/seaice_lsr.F |
1338 |
SEAICE_LSR_CALC_COEFFS |
hFacP = seaiceMaskU(I,J+1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1344 |
SEAICE_LSR_CALC_COEFFS |
& + ( 1. _d 0 - hFacP ) * ( UYY(I ,J+1) - UYM(I ,J+1) ) ) |
|
./pkg/seaice/seaice_lsr.F |
1347 |
SEAICE_LSR_CALC_COEFFS |
uRt2(I,J,bi,bj) = uRt2(I,J,bi,bj) * hFacP |
|
./pkg/seaice/seaice_lsr.F |
1401 |
SEAICE_LSR_CALC_COEFFS |
hFacP = seaiceMaskV(i+1,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1407 |
SEAICE_LSR_CALC_COEFFS |
& + ( 1. _d 0 - hFacP ) * ( VXX(I+1,J) - VXM(I+1,J) ) ) |
|
./pkg/seaice/seaice_lsr.F |
1410 |
SEAICE_LSR_CALC_COEFFS |
vRt2(I,J,bi,bj) = vRt2(I,J,bi,bj) * hFacP |