| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/lsr.F |
115 |
LSR |
_RL CUU (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 |
527 |
LSR |
CUU(I,J)=CU(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
529 |
LSR |
CUU(1,J)=CUU(1,J)/BU(1,J,bi,bj) |
|
./pkg/seaice/lsr.F |
541 |
LSR |
CUU(I,J)=CUU(I,J)/(BU(I,J,bi,bj)-AU(I,J,bi,bj)*CUU(IM,J)) |
|
./pkg/seaice/lsr.F |
543 |
LSR |
& /(BU(I,J,bi,bj)-AU(I,J,bi,bj)*CUU(IM,J)) |
|
./pkg/seaice/lsr.F |
553 |
LSR |
URT(J1,J)=URT(J1,J)-CUU(J1,J)*URT(J2,J) |
|
./pkg/seaice/lsr.F |
889 |
LSR |
CUU(I)=CU(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
894 |
LSR |
CUU(I)=CUU(I)/(BU(I,J,bi,bj)-AU(I,J,bi,bj)*CUU(IM)) |
|
./pkg/seaice/lsr.F |
896 |
LSR |
& /(BU(I,J,bi,bj)-AU(I,J,bi,bj)*CUU(IM)) |
|
./pkg/seaice/lsr.F |
901 |
LSR |
URT(J1)=URT(J1)-CUU(J1)*URT(J2) |
|
./pkg/seaice/seaice_lsr.F |
1781 |
SEAICE_LSR_TRIDIAGU |
_RL CUU(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/seaice/seaice_lsr.F |
1787 |
SEAICE_LSR_TRIDIAGU |
CUU(I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_lsr.F |
1810 |
SEAICE_LSR_TRIDIAGU |
CUU(I,J)=CU(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1812 |
SEAICE_LSR_TRIDIAGU |
CUU(iMin,J)=CUU(iMin,J)/BU(iMin,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1826 |
SEAICE_LSR_TRIDIAGU |
bet = BU(I,J,bi,bj)-AU(I,J,bi,bj)*CUU(IM,J) |
|
./pkg/seaice/seaice_lsr.F |
1827 |
SEAICE_LSR_TRIDIAGU |
CUU(I,J) = CUU(I,J)/bet |
|
./pkg/seaice/seaice_lsr.F |
1841 |
SEAICE_LSR_TRIDIAGU |
URT(IM,J)=URT(IM,J)-CUU(IM,J)*URT(IM+1,J) |