| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/lsr.F |
120 |
LSR |
DELYR(I,J,bi,bj)=HALF/(DYUICE(I,J,bi,bj)*RADIUS) |
|
./pkg/seaice/lsr.F |
147 |
LSR |
& +AA5*DELYR(I,J,bi,bj)+AA6*RADIUS2 |
|
./pkg/seaice/lsr.F |
222 |
LSR |
& -ETAMEAN(I,J,bi,bj)*DELYR(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
224 |
LSR |
& +ETAMEAN(I,J,bi,bj)*DELYR(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
228 |
LSR |
& +ETAMEAN(I,J,bi,bj)*DELYR(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
230 |
LSR |
& -ETAMEAN(I,J,bi,bj)*DELYR(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
375 |
LSR |
& *TNGICE(I,J-1,bi,bj)*DELYR(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
376 |
LSR |
& -ETAMEAN(I,J,bi,bj)*TWO*TNGICE(I,J,bi,bj)*DELYR(I,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
380 |
LSR |
& +AA5*DELYR(I,J,bi,bj)+AA6*RADIUS2 |
|
./pkg/seaice/lsr.F |
385 |
LSR |
& *TNGICE(I,J+1,bi,bj)*DELYR(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
386 |
LSR |
& +ETAMEAN(I,J,bi,bj)*TWO*TNGICE(I,J,bi,bj)*DELYR(I,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
489 |
LSR |
& *TNGICE(I,J-1,bi,bj)*DELYR(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
491 |
LSR |
& *DELYR(I,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
498 |
LSR |
& *TNGICE(I,J+1,bi,bj)*DELYR(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
500 |
LSR |
& *DELYR(I,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
63 |
LSR |
_RL DELYR (1:sNx,1:sNy,nSx,nSy) |