| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/lsr.F |
1132 |
LSR |
VRT(J)=rhsV(I,J,bi,bj)+AA3+VRT1(I,J,bi,bj)*VICE(I-1,J,bi,bj) |
|
./pkg/seaice/lsr.F |
1134 |
LSR |
VRT(J)=VRT(J)*UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
1140 |
LSR |
VRT(1)=VRT(1)/BV(I,1,bi,bj) |
|
./pkg/seaice/lsr.F |
1144 |
LSR |
VRT(J)=(VRT(J)-AV(I,J,bi,bj)*VRT(JM)) |
|
./pkg/seaice/lsr.F |
1150 |
LSR |
VRT(J1)=VRT(J1)-CVV(J1)*VRT(J2) |
|
./pkg/seaice/lsr.F |
1154 |
LSR |
& +WFAV*(VRT(J)-VTMP(I,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
118 |
LSR |
_RL VRT (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 |
571 |
LSR |
VRT(I,J)=rhsV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
580 |
LSR |
VRT(I,J)=VRT(I,J)* UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
587 |
LSR |
VRT(I,1)=VRT(I,1)/BV(I,1,bi,bj) |
|
./pkg/seaice/lsr.F |
591 |
LSR |
VRT(I,J)=(VRT(I,J)-AV(I,J,bi,bj)*VRT(I,JM)) |
|
./pkg/seaice/lsr.F |
597 |
LSR |
VRT(I,J1)=VRT(I,J1)-CVV(I,J1)*VRT(I,J2) |
|
./pkg/seaice/lsr.F |
601 |
LSR |
& +WFAV*(VRT(I,J)-vTmp(I,J,bi,bj)) |
|
./pkg/seaice/seaice_lsr.F |
1925 |
SEAICE_LSR_TRIDIAGV |
_RL VRT(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/seaice/seaice_lsr.F |
1931 |
SEAICE_LSR_TRIDIAGV |
VRT(I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_lsr.F |
1952 |
SEAICE_LSR_TRIDIAGV |
VRT(I,J)=rhsV(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1956 |
SEAICE_LSR_TRIDIAGV |
VRT(I,J)=VRT(I,J)* seaiceMaskV(I,J,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 |
1981 |
SEAICE_LSR_TRIDIAGV |
VRT(I,J) = (VRT(I,J)-AV(I,J,bi,bj)*VRT(I,JM))/bet |
|
./pkg/seaice/seaice_lsr.F |
1995 |
SEAICE_LSR_TRIDIAGV |
VRT(I,JM)=VRT(I,JM)-CVV(I,JM)*VRT(I,JM+1) |
|
./pkg/seaice/seaice_lsr.F |
2007 |
SEAICE_LSR_TRIDIAGV |
& +WFAV*(VRT(I,J)-vTmp(I,J,bi,bj)) |