| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/dynsolver.F |
260 |
DYNSOLVER |
VICEC(I,J,bi,bj)=VICE(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
281 |
DYNSOLVER |
VICEC(I,J,bi,bj)=VICE(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
760 |
LSR |
& ( VICEC(I+1,J+1,bi,bj) - VICEC(I+1,J ,bi,bj) ) |
|
./pkg/seaice/lsr.F |
762 |
LSR |
& +(VICEC(I ,J+1,bi,bj) - VICEC(I ,J ,bi,bj) ) |
|
./pkg/seaice/lsr.F |
765 |
LSR |
& ( VICEC(I+1,J+1,bi,bj) - VICEC(I ,J+1,bi,bj) ) |
|
./pkg/seaice/lsr.F |
767 |
LSR |
& +(VICEC(I+1,J ,bi,bj) - VICEC(I ,J ,bi,bj) ) |
|
./pkg/seaice/lsr.F |
783 |
LSR |
rhsU(I,J,bi,bj)=DRAGA(I,J,bi,bj)*VICEC(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
809 |
LSR |
& * VICEC(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
814 |
LSR |
& *(VICEC(I+1,J,bi,bj) - VICEC(I-1,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
820 |
LSR |
& *(VICEC(I+1,J,bi,bj) - VICEC(I-1,J,bi,bj)) |