| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/lsr.F |
112 |
LSR |
_RL CUU (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/seaice/lsr.F |
117 |
LSR |
_RL URT(1-OLx:sNx+OLx), CUU(1-OLx:sNx+OLx) |
|
./pkg/seaice/lsr.F |
524 |
LSR |
CUU(I,J)=CU(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
526 |
LSR |
CUU(1,J)=CUU(1,J)/BU(1,J,bi,bj) |
|
./pkg/seaice/lsr.F |
538 |
LSR |
CUU(I,J)=CUU(I,J)/(BU(I,J,bi,bj)-AU(I,J,bi,bj)*CUU(IM,J)) |
|
./pkg/seaice/lsr.F |
540 |
LSR |
& /(BU(I,J,bi,bj)-AU(I,J,bi,bj)*CUU(IM,J)) |
|
./pkg/seaice/lsr.F |
550 |
LSR |
URT(J1,J)=URT(J1,J)-CUU(J1,J)*URT(J2,J) |
|
./pkg/seaice/lsr.F |
886 |
LSR |
CUU(I)=CU(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
891 |
LSR |
CUU(I)=CUU(I)/(BU(I,J,bi,bj)-AU(I,J,bi,bj)*CUU(IM)) |
|
./pkg/seaice/lsr.F |
893 |
LSR |
& /(BU(I,J,bi,bj)-AU(I,J,bi,bj)*CUU(IM)) |
|
./pkg/seaice/lsr.F |
898 |
LSR |
URT(J1)=URT(J1)-CUU(J1)*URT(J2) |
|
./pkg/seaice/seaice_lsr.F |
1635 |
SEAICE_LSR_TRIDIAGU |
_RL CUU(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/seaice/seaice_lsr.F |
1644 |
SEAICE_LSR_TRIDIAGU |
CUU(I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_lsr.F |
1666 |
SEAICE_LSR_TRIDIAGU |
CUU(I,J)=CU(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1668 |
SEAICE_LSR_TRIDIAGU |
CUU(iMin,J)=CUU(iMin,J)/BU(iMin,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1691 |
SEAICE_LSR_TRIDIAGU |
bet = BU(I,J,bi,bj)-AU(I,J,bi,bj)*CUU(IM,J) |
|
./pkg/seaice/seaice_lsr.F |
1692 |
SEAICE_LSR_TRIDIAGU |
CUU(I,J) = CUU(I,J)/bet |
|
./pkg/seaice/seaice_lsr.F |
1711 |
SEAICE_LSR_TRIDIAGU |
URT(IM,J)=URT(IM,J)-CUU(IM,J)*URT(IM+1,J) |