| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/lsr.F |
1138 |
LSR |
CVV(J)=CV(I,J,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 |
1150 |
LSR |
VRT(J1)=VRT(J1)-CVV(J1)*VRT(J2) |
|
./pkg/seaice/lsr.F |
116 |
LSR |
_RL CVV (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/seaice/lsr.F |
121 |
LSR |
_RL VRT(1-OLy:sNy+OLy), CVV(1-OLy:sNy+OLy) |
|
./pkg/seaice/lsr.F |
584 |
LSR |
CVV(I,J)=CV(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 |
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 |
597 |
LSR |
VRT(I,J1)=VRT(I,J1)-CVV(I,J1)*VRT(I,J2) |
|
./pkg/seaice/seaice_lsr.F |
1926 |
SEAICE_LSR_TRIDIAGV |
_RL CVV(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/seaice/seaice_lsr.F |
1932 |
SEAICE_LSR_TRIDIAGV |
CVV(I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_lsr.F |
1959 |
SEAICE_LSR_TRIDIAGV |
CVV(I,J)=CV(I,J,bi,bj) |
|
./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 |
1979 |
SEAICE_LSR_TRIDIAGV |
bet = BV(I,J,bi,bj)-AV(I,J,bi,bj)*CVV(I,JM) |
|
./pkg/seaice/seaice_lsr.F |
1980 |
SEAICE_LSR_TRIDIAGV |
CVV(I,J) = CVV(I,J)/bet |
|
./pkg/seaice/seaice_lsr.F |
1995 |
SEAICE_LSR_TRIDIAGV |
VRT(I,JM)=VRT(I,JM)-CVV(I,JM)*VRT(I,JM+1) |