File |
Line number |
Procedure |
Code |
./pkg/seaice/lsr.F |
113 |
LSR |
ZETAMEAN(I,J,bi,bj)=QUART*(ZETA(I,J-1,bi,bj) |
./pkg/seaice/lsr.F |
211 |
LSR |
6 -(ETAMEAN(I,J,bi,bj)+ZETAMEAN(I,J,bi,bj)) |
./pkg/seaice/lsr.F |
374 |
LSR |
& -(ZETAMEAN(I,J,bi,bj)-ETAMEAN(I,J,bi,bj)) |
./pkg/seaice/lsr.F |
384 |
LSR |
& +(ZETAMEAN(I,J,bi,bj)-ETAMEAN(I,J,bi,bj)) |
./pkg/seaice/lsr.F |
404 |
LSR |
3 *RECIP_CSUICE(I,J,bi,bj)+HALF*ZETAMEAN(I,J,bi,bj) |
./pkg/seaice/lsr.F |
488 |
LSR |
& +(ZETAMEAN(I,J,bi,bj)-ETAMEAN(I,J,bi,bj)) |
./pkg/seaice/lsr.F |
497 |
LSR |
& -(ZETAMEAN(I,J,bi,bj)-ETAMEAN(I,J,bi,bj)) |
./pkg/seaice/lsr.F |
60 |
LSR |
_RL ZETAMEAN (1:sNx,1:sNy,nSx,nSy) |