| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/lsr.F |
1140 |
LSR |
VRT(1)=VRT(1)/BV(I,1,bi,bj) |
|
./pkg/seaice/lsr.F |
1143 |
LSR |
CVV(J)=CVV(J)/(BV(I,J,bi,bj)-AV(I,J,bi,bj)*CVV(JM)) |
|
./pkg/seaice/lsr.F |
1145 |
LSR |
& /(BV(I,J,bi,bj)-AV(I,J,bi,bj)*CVV(JM)) |
|
./pkg/seaice/lsr.F |
390 |
LSR |
BV(I,J,bi,bj)= (ONE - UVM(I,J,bi,bj)) + |
|
./pkg/seaice/lsr.F |
408 |
LSR |
BV(I,J,bi,bj) = BV(I,J,bi,bj) * recip_rAz(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
586 |
LSR |
CVV(I,1)=CVV(I,1)/BV(I,1,bi,bj) |
|
./pkg/seaice/lsr.F |
587 |
LSR |
VRT(I,1)=VRT(I,1)/BV(I,1,bi,bj) |
|
./pkg/seaice/lsr.F |
590 |
LSR |
CVV(I,J)=CVV(I,J)/(BV(I,J,bi,bj)-AV(I,J,bi,bj)*CVV(I,JM)) |
|
./pkg/seaice/lsr.F |
592 |
LSR |
& /(BV(I,J,bi,bj)-AV(I,J,bi,bj)*CVV(I,JM)) |
|
./pkg/seaice/lsr.F |
71 |
LSR |
_RL BV (1:sNx,1:sNy,nSx,nSy) |
|
./pkg/seaice/lsr.F |
986 |
LSR |
BV(I,J,bi,bj)= (ONE-UVM(I,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
996 |
LSR |
CV(I,1,bi,bj)=CV(I,1,bi,bj)/BV(I,1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1013 |
SEAICE_RESIDUAL |
I AU, BU, CU, AV, BV, CV, uFld, vFld, |
|
./pkg/seaice/seaice_lsr.F |
101 |
SEAICE_LSR |
_RL BV (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/seaice/seaice_lsr.F |
1053 |
SEAICE_RESIDUAL |
_RL BV (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/seaice/seaice_lsr.F |
1096 |
SEAICE_RESIDUAL |
& + BV(i,j,bi,bj)*vFld(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 |
1187 |
SEAICE_LSR_CALC_COEFFS |
_RL BV (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/seaice/seaice_lsr.F |
1384 |
SEAICE_LSR_CALC_COEFFS |
BV(I,J,bi,bj)= (ONE - seaiceMaskV(I,J,bi,bj)) + |
|
./pkg/seaice/seaice_lsr.F |
1405 |
SEAICE_LSR_CALC_COEFFS |
BV(I,J,bi,bj)=BV(I,J,bi,bj) + seaiceMaskV(I,J,bi,bj) * |
|
./pkg/seaice/seaice_lsr.F |
1422 |
SEAICE_LSR_CALC_COEFFS |
BV(I,J,bi,bj) = BV(I,J,bi,bj) * recip_rAs(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1445 |
SEAICE_LSR_CALC_COEFFS |
IF (BV(I,J,bi,bj).EQ.0 _d 0) BV(I,J,bi,bj) = 1. _d 0 |
|
./pkg/seaice/seaice_lsr.F |
1870 |
SEAICE_LSR_TRIDIAGV |
I AV, BV, CV, vRt1, vRt2, rhsV, vTmp, seaiceMaskV, WFAV, |
|
./pkg/seaice/seaice_lsr.F |
1896 |
SEAICE_LSR_TRIDIAGV |
_RL BV (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/seaice/seaice_lsr.F |
1965 |
SEAICE_LSR_TRIDIAGV |
CVV(I,jMin)=CVV(I,jMin)/BV(I,jMin,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1966 |
SEAICE_LSR_TRIDIAGV |
VRT(I,jMin)=VRT(I,jMin)/BV(I,jMin,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1979 |
SEAICE_LSR_TRIDIAGV |
bet = BV(I,J,bi,bj)-AV(I,J,bi,bj)*CVV(I,JM) |
|
./pkg/seaice/seaice_lsr.F |
493 |
SEAICE_LSR |
O AU, BU, CU, AV, BV, CV, uRt1, uRt2, vRt1, vRt2, |
|
./pkg/seaice/seaice_lsr.F |
512 |
SEAICE_LSR |
BV(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 |
728 |
SEAICE_LSR |
I AV, BV, CV, rhsVy, |
|
./pkg/seaice/seaice_lsr.F |
794 |
SEAICE_LSR |
I AV, BV, CV, vRt1, vRt2, rhsV, vTmp, seaiceMaskV, WFAV, |
|
./pkg/seaice/seaice_lsr.F |
872 |
SEAICE_LSR |
I AU, BU, CU, AV, BV, CV, uIce, vIce, |
|
./pkg/seaice/seaice_preconditioner.F |
186 |
SEAICE_PRECONDITIONER |
O AU, BU, CU, AV, BV, CV, uRt1, uRt2, vRt1, vRt2, |
|
./pkg/seaice/seaice_preconditioner.F |
204 |
SEAICE_PRECONDITIONER |
BV(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 |
372 |
SEAICE_PRECONDITIONER |
I AV, BV, CV, vRt1, vRt2, rhsV, vTmp, seaiceMaskV, WFAV, |
|
./pkg/seaice/seaice_preconditioner.F |
391 |
SEAICE_PRECONDITIONER |
I AU, BU, CU, AV, BV, CV, duIce, dvIce, |
|
./pkg/seaice/seaice_preconditioner.F |
95 |
SEAICE_PRECONDITIONER |
_RL BV (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |