| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/lsr.F |
118 |
LSR |
DELXY(I,J,bi,bj)=HALF/(DXUICE(I,J,bi,bj)*DYUICE(I,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
174 |
LSR |
3 -VICEC(I-1,J,bi,bj)))*DELXY(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
187 |
LSR |
4 -VICEC(I-1,J,bi,bj)))*DELXY(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
203 |
LSR |
5 -VICEC(I,J-1,bi,bj)))*DELXY(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
403 |
LSR |
3 -ZETA(I-1,J-1,bi,bj)-ZETA(I,J-1,bi,bj))*DELXY(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
408 |
LSR |
3 *RECIP_CSUICE(I,J-1,bi,bj))*DELXY(I,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
412 |
LSR |
4 -ETA(I-1,J-1,bi,bj)-ETA(I,J-1,bi,bj))*DELXY(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
417 |
LSR |
4 *RECIP_CSUICE(I,J-1,bi,bj))*DELXY(I,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
430 |
LSR |
5 *DELXY(I,J,bi,bj)*RECIP_CSUICE(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
61 |
LSR |
_RL DELXY (1:sNx,1:sNy,nSx,nSy) |