| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_lsr.F |
1225 |
SEAICE_LSR |
hFacM = seaiceMaskU(i,j-1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1232 |
SEAICE_LSR |
& ( UVRT1(I,J,bi,bj)*( 1. _d 0 - hFacM )*seaiceSlipFactor |
|
./pkg/seaice/seaice_lsr.F |
1236 |
SEAICE_LSR |
UVRT1(I,J,bi,bj)=UVRT1(I,J,bi,bj) * hFacM |
|
./pkg/seaice/seaice_lsr.F |
1267 |
SEAICE_LSR |
hFacM = seaiceMaskV(I,J,bi,bj) - seaiceMaskV(I-1,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1270 |
SEAICE_LSR |
& * _recip_dxV(I,J,bi,bj) * hFacM * 2. _d 0 |
|
./pkg/seaice/seaice_lsr.F |
1495 |
SEAICE_LSR |
hFacM = seaiceMaskV(i-1,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1502 |
SEAICE_LSR |
& ( UVRT1(I,J,bi,bj)*( 1. _d 0 - hFacM )*seaiceSlipFactor |
|
./pkg/seaice/seaice_lsr.F |
1506 |
SEAICE_LSR |
UVRT1(I,J,bi,bj)=UVRT1(I,J,bi,bj) * hFacM |
|
./pkg/seaice/seaice_lsr.F |
1537 |
SEAICE_LSR |
hFacM = seaiceMaskU(I,J,bi,bj) - seaiceMaskU(I,J-1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1540 |
SEAICE_LSR |
& * _recip_dyU(I,J,bi,bj) * hFacM * 2. _d 0 |
|
./pkg/seaice/seaice_lsr.F |
397 |
SEAICE_LSR |
hFacM = seaiceMaskU(I,J-1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
403 |
SEAICE_LSR |
& ( ( 1. _d 0 - hFacM ) |
|
./pkg/seaice/seaice_lsr.F |
408 |
SEAICE_LSR |
UVRT1(I,J,bi,bj)=UVRT1(I,J,bi,bj) * hFacM |
|
./pkg/seaice/seaice_lsr.F |
450 |
SEAICE_LSR |
hFacM = seaiceMaskV(I,J,bi,bj) - seaiceMaskV(I-1,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
465 |
SEAICE_LSR |
& * hFacM * 2. _d 0 |
|
./pkg/seaice/seaice_lsr.F |
655 |
SEAICE_LSR |
hFacM = seaiceMaskV(i-1,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
65 |
SEAICE_LSR |
_RL hFacM, hFacP |
|
./pkg/seaice/seaice_lsr.F |
661 |
SEAICE_LSR |
& ( ( 1. _d 0 - hFacM ) |
|
./pkg/seaice/seaice_lsr.F |
666 |
SEAICE_LSR |
UVRT1(I,J,bi,bj)=UVRT1(I,J,bi,bj) * hFacM |
|
./pkg/seaice/seaice_lsr.F |
708 |
SEAICE_LSR |
hFacM = seaiceMaskU(i,j,bi,bj) - seaiceMaskU(i,j-1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
723 |
SEAICE_LSR |
& * hFacM * 2. _d 0 |
|
./pkg/seaice/seaice_lsr.F |
898 |
SEAICE_LSR |
_RL seaiceSlipFactor, hFacM, hFacP |