| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/lsr.F |
159 |
LSR |
BU(I,J,bi,bj)=(ONE-UVM(I,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
172 |
LSR |
CU(1,J,bi,bj)=CU(1,J,bi,bj)/BU(1,J,bi,bj) |
|
./pkg/seaice/lsr.F |
310 |
LSR |
URT(1)=URT(1)/BU(1,J,bi,bj) |
|
./pkg/seaice/lsr.F |
313 |
LSR |
CUU(I)=CUU(I)/(BU(I,J,bi,bj)-AU(I,J,bi,bj)*CUU(IM)) |
|
./pkg/seaice/lsr.F |
315 |
LSR |
& /(BU(I,J,bi,bj)-AU(I,J,bi,bj)*CUU(IM)) |
|
./pkg/seaice/lsr.F |
56 |
LSR |
_RL BU (1-Olx:sNx+Olx,1-Oly:sNy+Oly,nSx,nSy) |
|
./pkg/seaice/seaice_lsr.F |
378 |
SEAICE_LSR |
BU(I,J,bi,bj)=(ONE - seaiceMaskU(I,J,bi,bj)) + |
|
./pkg/seaice/seaice_lsr.F |
401 |
SEAICE_LSR |
BU(I,J,bi,bj)=BU(I,J,bi,bj) + seaiceMaskU(I,J,bi,bj) * |
|
./pkg/seaice/seaice_lsr.F |
419 |
SEAICE_LSR |
BU(I,J,bi,bj) = BU(I,J,bi,bj) * recip_rAw(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
431 |
SEAICE_LSR |
CU(1,J,bi,bj)=CU(1,J,bi,bj)/BU(1,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
544 |
SEAICE_LSR |
URT(1,J)=URT(1,J)/BU(1,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
555 |
SEAICE_LSR |
CUU(I,J)=CUU(I,J)/(BU(I,J,bi,bj)-AU(I,J,bi,bj)*CUU(IM,J)) |
|
./pkg/seaice/seaice_lsr.F |
557 |
SEAICE_LSR |
& /(BU(I,J,bi,bj)-AU(I,J,bi,bj)*CUU(IM,J)) |
|
./pkg/seaice/seaice_lsr.F |
83 |
SEAICE_LSR |
_RL BU (1-Olx:sNx+Olx,1-Oly:sNy+Oly,nSx,nSy) |