| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/lsr.F |
157 |
LSR |
AU(I,J,bi,bj)=-AA2 |
|
./pkg/seaice/lsr.F |
160 |
LSR |
& - AU(I,J,bi,bj) - CU(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
170 |
LSR |
AU(1,J,bi,bj)=ZERO |
|
./pkg/seaice/lsr.F |
313 |
LSR |
CUU(I)=CUU(I)/(BU(I,J,bi,bj)-AU(I,J,bi,bj)*CUU(IM)) |
|
./pkg/seaice/lsr.F |
314 |
LSR |
URT(I)=(URT(I)-AU(I,J,bi,bj)*URT(IM)) |
|
./pkg/seaice/lsr.F |
315 |
LSR |
& /(BU(I,J,bi,bj)-AU(I,J,bi,bj)*CUU(IM)) |
|
./pkg/seaice/lsr.F |
55 |
LSR |
_RL AU (1-Olx:sNx+Olx,1-Oly:sNy+Oly,nSx,nSy) |
|
./pkg/seaice/seaice_lsr.F |
372 |
SEAICE_LSR |
AU(I,J,bi,bj)= ( - UXX(I-1,J,bi,bj) + UXM(I-1,J,bi,bj) ) |
|
./pkg/seaice/seaice_lsr.F |
415 |
SEAICE_LSR |
AU(I,J,bi,bj) = AU(I,J,bi,bj) * recip_rAw(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
429 |
SEAICE_LSR |
AU(1,J,bi,bj)=ZERO |
|
./pkg/seaice/seaice_lsr.F |
555 |
SEAICE_LSR |
CUU(I,J)=CUU(I,J)/(BU(I,J,bi,bj)-AU(I,J,bi,bj)*CUU(IM,J)) |
|
./pkg/seaice/seaice_lsr.F |
556 |
SEAICE_LSR |
URT(I,J)=(URT(I,J)-AU(I,J,bi,bj)*URT(IM,J)) |
|
./pkg/seaice/seaice_lsr.F |
557 |
SEAICE_LSR |
& /(BU(I,J,bi,bj)-AU(I,J,bi,bj)*CUU(IM,J)) |
|
./pkg/seaice/seaice_lsr.F |
82 |
SEAICE_LSR |
_RL AU (1-Olx:sNx+Olx,1-Oly:sNy+Oly,nSx,nSy) |