| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/dynsolver.F |
259 |
DYNSOLVER |
UICEC(I,J,bi,bj)=UICE(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
280 |
DYNSOLVER |
UICEC(I,J,bi,bj)=UICE(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
1003 |
LSR |
& ( UICEC(I+1,J+1,bi,bj) - UICEC(I ,J+1,bi,bj) ) |
|
./pkg/seaice/lsr.F |
1005 |
LSR |
& +(UICEC(I+1,J ,bi,bj) - UICEC(I ,J ,bi,bj) ) |
|
./pkg/seaice/lsr.F |
1008 |
LSR |
& ( UICEC(I+1,J+1,bi,bj) - UICEC(I+1,J ,bi,bj) ) |
|
./pkg/seaice/lsr.F |
1010 |
LSR |
& +(UICEC(I ,J+1,bi,bj) - UICEC(I ,J ,bi,bj) ) |
|
./pkg/seaice/lsr.F |
1026 |
LSR |
rhsV(I,J,bi,bj)=-DRAGA(I,J,bi,bj)*UICEC(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
1053 |
LSR |
& * UICEC(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
1057 |
LSR |
& *(UICEC(I+1,J,bi,bj)-UICEC(I-1,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
1061 |
LSR |
& *(UICEC(I+1,J,bi,bj)-UICEC(I-1,J,bi,bj)) |