| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/lsr.F |
350 |
LSR |
BU(I,J,bi,bj)=(ONE - UVM(I,J,bi,bj)) + |
|
./pkg/seaice/lsr.F |
368 |
LSR |
BU(I,J,bi,bj) = BU(I,J,bi,bj) * recip_rAz(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 |
530 |
LSR |
URT(1,J)=URT(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 |
68 |
LSR |
_RL BU (1:sNx,1:sNy,nSx,nSy) |
|
./pkg/seaice/lsr.F |
740 |
LSR |
BU(I,J,bi,bj)=(ONE-UVM(I,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
753 |
LSR |
CU(1,J,bi,bj)=CU(1,J,bi,bj)/BU(1,J,bi,bj) |
|
./pkg/seaice/lsr.F |
891 |
LSR |
URT(1)=URT(1)/BU(1,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/seaice_lsr.F |
1013 |
SEAICE_RESIDUAL |
I AU, BU, CU, AV, BV, CV, uFld, vFld, |
|
./pkg/seaice/seaice_lsr.F |
1050 |
SEAICE_RESIDUAL |
_RL BU (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/seaice/seaice_lsr.F |
1089 |
SEAICE_RESIDUAL |
& + BU(i,j,bi,bj)*uFld( i ,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 |
1184 |
SEAICE_LSR_CALC_COEFFS |
_RL BU (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/seaice/seaice_lsr.F |
1321 |
SEAICE_LSR_CALC_COEFFS |
BU(I,J,bi,bj)=(ONE - seaiceMaskU(I,J,bi,bj)) + |
|
./pkg/seaice/seaice_lsr.F |
1342 |
SEAICE_LSR_CALC_COEFFS |
BU(I,J,bi,bj)=BU(I,J,bi,bj) + seaiceMaskU(I,J,bi,bj) * |
|
./pkg/seaice/seaice_lsr.F |
1359 |
SEAICE_LSR_CALC_COEFFS |
BU(I,J,bi,bj) = BU(I,J,bi,bj) * recip_rAw(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1444 |
SEAICE_LSR_CALC_COEFFS |
IF (BU(I,J,bi,bj).EQ.0 _d 0) BU(I,J,bi,bj) = 1. _d 0 |
|
./pkg/seaice/seaice_lsr.F |
1725 |
SEAICE_LSR_TRIDIAGU |
I AU, BU, CU, uRt1, uRt2, rhsU, uTmp, seaiceMaskU, WFAU, |
|
./pkg/seaice/seaice_lsr.F |
1751 |
SEAICE_LSR_TRIDIAGU |
_RL BU (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./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 |
1813 |
SEAICE_LSR_TRIDIAGU |
URT(iMin,J)=URT(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 |
493 |
SEAICE_LSR |
O AU, BU, CU, AV, BV, CV, uRt1, uRt2, vRt1, vRt2, |
|
./pkg/seaice/seaice_lsr.F |
504 |
SEAICE_LSR |
BU(I,J,bi,bj) = ONE |
|
./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 |
98 |
SEAICE_LSR |
_RL BU (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 |
197 |
SEAICE_PRECONDITIONER |
BU(I,J,bi,bj) = ONE |
|
./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 |
92 |
SEAICE_PRECONDITIONER |
_RL BU (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |