| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/dynsolver.F |
257 |
DYNSOLVER |
VICEC(I,J,bi,bj)=VICE(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
278 |
DYNSOLVER |
VICEC(I,J,bi,bj)=VICE(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
757 |
LSR |
& ( VICEC(I+1,J+1,bi,bj) - VICEC(I+1,J ,bi,bj) ) |
|
./pkg/seaice/lsr.F |
759 |
LSR |
& +(VICEC(I ,J+1,bi,bj) - VICEC(I ,J ,bi,bj) ) |
|
./pkg/seaice/lsr.F |
762 |
LSR |
& ( VICEC(I+1,J+1,bi,bj) - VICEC(I ,J+1,bi,bj) ) |
|
./pkg/seaice/lsr.F |
764 |
LSR |
& +(VICEC(I+1,J ,bi,bj) - VICEC(I ,J ,bi,bj) ) |
|
./pkg/seaice/lsr.F |
780 |
LSR |
rhsU(I,J,bi,bj)=DRAGA(I,J,bi,bj)*VICEC(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
806 |
LSR |
& * VICEC(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
811 |
LSR |
& *(VICEC(I+1,J,bi,bj) - VICEC(I-1,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
817 |
LSR |
& *(VICEC(I+1,J,bi,bj) - VICEC(I-1,J,bi,bj)) |