| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/lsr.F |
344 |
LSR |
AU(I,J,bi,bj)= ( - UXX(I-1,J) + UXM(I-1,J) ) |
|
./pkg/seaice/lsr.F |
364 |
LSR |
AU(I,J,bi,bj) = AU(I,J,bi,bj) * recip_rAz(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
511 |
LSR |
IF (I.EQ.1) AA3 = AA3 - AU(I,J,bi,bj)*uIce(I-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 |
542 |
LSR |
URT(I,J)=(URT(I,J)-AU(I,J,bi,bj)*URT(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 |
67 |
LSR |
_RL AU (1:sNx,1:sNy,nSx,nSy) |
|
./pkg/seaice/lsr.F |
738 |
LSR |
AU(I,J,bi,bj)=-AA2 |
|
./pkg/seaice/lsr.F |
741 |
LSR |
& - AU(I,J,bi,bj) - CU(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
751 |
LSR |
AU(1,J,bi,bj)=ZERO |
|
./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 |
895 |
LSR |
URT(I)=(URT(I)-AU(I,J,bi,bj)*URT(IM)) |
|
./pkg/seaice/lsr.F |
896 |
LSR |
& /(BU(I,J,bi,bj)-AU(I,J,bi,bj)*CUU(IM)) |
|
./pkg/seaice/seaice_lsr.F |
1013 |
SEAICE_RESIDUAL |
I AU, BU, CU, AV, BV, CV, uFld, vFld, |
|
./pkg/seaice/seaice_lsr.F |
1049 |
SEAICE_RESIDUAL |
_RL AU (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/seaice/seaice_lsr.F |
1088 |
SEAICE_RESIDUAL |
& - ( AU(i,j,bi,bj)*uFld(i-1,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1140 |
SEAICE_LSR_CALC_COEFFS |
O AU, BU, CU, AV, BV, CV, uRt1, uRt2, vRt1, vRt2, |
|
./pkg/seaice/seaice_lsr.F |
1183 |
SEAICE_LSR_CALC_COEFFS |
_RL AU (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/seaice/seaice_lsr.F |
1315 |
SEAICE_LSR_CALC_COEFFS |
AU(I,J,bi,bj)= ( - UXX(I-1,J) + UXM(I-1,J) ) |
|
./pkg/seaice/seaice_lsr.F |
1354 |
SEAICE_LSR_CALC_COEFFS |
AU(I,J,bi,bj) = AU(I,J,bi,bj) * recip_rAw(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1725 |
SEAICE_LSR_TRIDIAGU |
I AU, BU, CU, uRt1, uRt2, rhsU, uTmp, seaiceMaskU, WFAU, |
|
./pkg/seaice/seaice_lsr.F |
1750 |
SEAICE_LSR_TRIDIAGU |
_RL AU (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/seaice/seaice_lsr.F |
1799 |
SEAICE_LSR_TRIDIAGU |
IF (I.EQ.iMin) AA3 = AA3 - AU(I,J,bi,bj)*uIce(I-1,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 |
1828 |
SEAICE_LSR_TRIDIAGU |
URT(I,J) = (URT(I,J)-AU(I,J,bi,bj)*URT(IM,J))/bet |
|
./pkg/seaice/seaice_lsr.F |
493 |
SEAICE_LSR |
O AU, BU, CU, AV, BV, CV, uRt1, uRt2, vRt1, vRt2, |
|
./pkg/seaice/seaice_lsr.F |
503 |
SEAICE_LSR |
AU(I,J,bi,bj) = ZERO |
|
./pkg/seaice/seaice_lsr.F |
541 |
SEAICE_LSR |
I AU, BU, CU, AV, BV, CV, uIce, vIce, |
|
./pkg/seaice/seaice_lsr.F |
573 |
SEAICE_LSR |
I AU, BU, CU, AV, BV, CV, uIce_fd, vIce_fd, |
|
./pkg/seaice/seaice_lsr.F |
626 |
SEAICE_LSR |
I AU, BU, CU, AV, BV, CV, uIce, vIce, |
|
./pkg/seaice/seaice_lsr.F |
727 |
SEAICE_LSR |
I AU, BU, CU, rhsUx, |
|
./pkg/seaice/seaice_lsr.F |
786 |
SEAICE_LSR |
I AU, BU, CU, uRt1, uRt2, rhsU, uTmp, seaiceMaskU, WFAU, |
|
./pkg/seaice/seaice_lsr.F |
872 |
SEAICE_LSR |
I AU, BU, CU, AV, BV, CV, uIce, vIce, |
|
./pkg/seaice/seaice_lsr.F |
97 |
SEAICE_LSR |
_RL AU (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/seaice/seaice_preconditioner.F |
186 |
SEAICE_PRECONDITIONER |
O AU, BU, CU, AV, BV, CV, uRt1, uRt2, vRt1, vRt2, |
|
./pkg/seaice/seaice_preconditioner.F |
196 |
SEAICE_PRECONDITIONER |
AU(I,J,bi,bj) = ZERO |
|
./pkg/seaice/seaice_preconditioner.F |
269 |
SEAICE_PRECONDITIONER |
I AU, BU, CU, AV, BV, CV, duIce, dvIce, |
|
./pkg/seaice/seaice_preconditioner.F |
334 |
SEAICE_PRECONDITIONER |
I AU, BU, CU, uRt1, uRt2, rhsU, uTmp, seaiceMaskU, WFAU, |
|
./pkg/seaice/seaice_preconditioner.F |
391 |
SEAICE_PRECONDITIONER |
I AU, BU, CU, AV, BV, CV, duIce, dvIce, |
|
./pkg/seaice/seaice_preconditioner.F |
91 |
SEAICE_PRECONDITIONER |
_RL AU (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |