| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_lsr.F |
1226 |
SEAICE_LSR |
hFacP = seaiceMaskU(i,j+1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1233 |
SEAICE_LSR |
& + UVRT2(I,J,bi,bj)*( 1. _d 0 - hFacP )*seaiceSlipFactor |
|
./pkg/seaice/seaice_lsr.F |
1237 |
SEAICE_LSR |
UVRT2(I,J,bi,bj)=UVRT2(I,J,bi,bj) * hFacP |
|
./pkg/seaice/seaice_lsr.F |
1496 |
SEAICE_LSR |
hFacP = seaiceMaskV(i+1,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1503 |
SEAICE_LSR |
& + UVRT2(I,J,bi,bj)*( 1. _d 0 - hFacP )*seaiceSlipFactor |
|
./pkg/seaice/seaice_lsr.F |
1507 |
SEAICE_LSR |
UVRT2(I,J,bi,bj)=UVRT2(I,J,bi,bj) * hFacP |
|
./pkg/seaice/seaice_lsr.F |
398 |
SEAICE_LSR |
hFacP = seaiceMaskU(I,J+1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
405 |
SEAICE_LSR |
& + ( 1. _d 0 - hFacP ) |
|
./pkg/seaice/seaice_lsr.F |
409 |
SEAICE_LSR |
UVRT2(I,J,bi,bj)=UVRT2(I,J,bi,bj) * hFacP |
|
./pkg/seaice/seaice_lsr.F |
656 |
SEAICE_LSR |
hFacP = seaiceMaskV(i+1,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
65 |
SEAICE_LSR |
_RL hFacM, hFacP |
|
./pkg/seaice/seaice_lsr.F |
663 |
SEAICE_LSR |
& + ( 1. _d 0 - hFacP ) |
|
./pkg/seaice/seaice_lsr.F |
667 |
SEAICE_LSR |
UVRT2(I,J,bi,bj)=UVRT2(I,J,bi,bj) * hFacP |
|
./pkg/seaice/seaice_lsr.F |
898 |
SEAICE_LSR |
_RL seaiceSlipFactor, hFacM, hFacP |