| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/lsr.F |
117 |
LSR |
_RL URT (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/seaice/lsr.F |
120 |
LSR |
_RL URT(1-OLx:sNx+OLx), CUU(1-OLx:sNx+OLx) |
|
./pkg/seaice/lsr.F |
514 |
LSR |
URT(I,J)=rhsU(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
523 |
LSR |
URT(I,J)=URT(I,J)* UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
530 |
LSR |
URT(1,J)=URT(1,J)/BU(1,J,bi,bj) |
|
./pkg/seaice/lsr.F |
542 |
LSR |
URT(I,J)=(URT(I,J)-AU(I,J,bi,bj)*URT(IM,J)) |
|
./pkg/seaice/lsr.F |
553 |
LSR |
URT(J1,J)=URT(J1,J)-CUU(J1,J)*URT(J2,J) |
|
./pkg/seaice/lsr.F |
557 |
LSR |
& +WFAU*(URT(I,J)-uTmp(I,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
882 |
LSR |
URT(I)=rhsU(I,J,bi,bj)+AA3 |
|
./pkg/seaice/lsr.F |
885 |
LSR |
URT(I)=URT(I)*UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
891 |
LSR |
URT(1)=URT(1)/BU(1,J,bi,bj) |
|
./pkg/seaice/lsr.F |
895 |
LSR |
URT(I)=(URT(I)-AU(I,J,bi,bj)*URT(IM)) |
|
./pkg/seaice/lsr.F |
901 |
LSR |
URT(J1)=URT(J1)-CUU(J1)*URT(J2) |
|
./pkg/seaice/lsr.F |
905 |
LSR |
& +WFAU*(URT(I)-UTMP(I,J,bi,bj)) |
|
./pkg/seaice/seaice_lsr.F |
1780 |
SEAICE_LSR_TRIDIAGU |
_RL URT(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/seaice/seaice_lsr.F |
1786 |
SEAICE_LSR_TRIDIAGU |
URT(I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_lsr.F |
1802 |
SEAICE_LSR_TRIDIAGU |
URT(I,J)=rhsU(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1806 |
SEAICE_LSR_TRIDIAGU |
URT(I,J)=URT(I,J)* seaiceMaskU(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1813 |
SEAICE_LSR_TRIDIAGU |
URT(iMin,J)=URT(iMin,J)/BU(iMin,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1828 |
SEAICE_LSR_TRIDIAGU |
URT(I,J) = (URT(I,J)-AU(I,J,bi,bj)*URT(IM,J))/bet |
|
./pkg/seaice/seaice_lsr.F |
1841 |
SEAICE_LSR_TRIDIAGU |
URT(IM,J)=URT(IM,J)-CUU(IM,J)*URT(IM+1,J) |
|
./pkg/seaice/seaice_lsr.F |
1854 |
SEAICE_LSR_TRIDIAGU |
& +WFAU*(URT(I,J)-uTmp(I,J,bi,bj)) |