| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/SEAICE.h |
41 |
NO PROCEDURE |
& ETA,ZETA,DRAGS,DRAGA,FORCEX,FORCEY,UICEC,VICEC |
|
./pkg/seaice/SEAICE.h |
60 |
NO PROCEDURE |
_RL UICEC (1-OLx:sNx+OLx,1-OLy:sNy+OLy, nSx,nSy) |
|
./pkg/seaice/dynsolver.F |
188 |
DYNSOLVER |
UICEC(I,J,bi,bj)=UICE(I,J,1,bi,bj) |
|
./pkg/seaice/dynsolver.F |
299 |
DYNSOLVER |
UICEC(I,J,bi,bj)=UICE(I,J,1,bi,bj) |
|
./pkg/seaice/seaice_init.F |
155 |
SEAICE_INIT |
UICEC (I,J,bi,bj)=ZERO |
|
./pkg/seaice/lsr.F |
404 |
LSR |
& UICEC(I+1,J+1,bi,bj) + UICEC(I ,J+1,bi,bj) |
|
./pkg/seaice/lsr.F |
405 |
LSR |
5 -UICEC(I+1,J ,bi,bj) - UICEC(I ,J ,bi,bj) ) |
|
./pkg/seaice/lsr.F |
410 |
LSR |
FXY(I,J,bi,bj)=-DRAGA(I,J,bi,bj)*UICEC(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
413 |
LSR |
& + HALF*(UICEC(I+1,J,bi,bj)-UICEC(I-1,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
420 |
LSR |
& *((UICEC(I+1,J+1,bi,bj) - UICEC(I-1,J+1,bi,bj)) |
|
./pkg/seaice/lsr.F |
422 |
LSR |
& -(UICEC(I+1,J-1,bi,bj)-UICEC(I-1,J-1,bi,bj)) |
|
./pkg/seaice/lsr.F |
434 |
LSR |
& * UICEC(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
438 |
LSR |
& *(UICEC(I+1,J,bi,bj)-UICEC(I-1,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
442 |
LSR |
& *(UICEC(I+1,J,bi,bj)-UICEC(I-1,J,bi,bj)) |
|
./pkg/seaice/ostres.F |
60 |
OSTRES |
& *(GWATX(I,J,bi,bj)-UICEC(I,J,bi,bj)) |
|
./pkg/seaice/ostres.F |
65 |
OSTRES |
& *GWATX(I,J,bi,bj)+COR_ICE(I,J,bi,bj)*UICEC(I,J,bi,bj)) |