| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/SEAICE.h |
33 |
NO PROCEDURE |
& ETA,ZETA,DRAGS,DRAGA,AMASS,FORCEX,FORCEY,UICEC,VICEC |
|
./pkg/seaice/SEAICE.h |
44 |
NO PROCEDURE |
_RL UICEC (1-OLx:sNx+OLx,1-OLy:sNy+OLy, nSx,nSy) |
|
./pkg/seaice/dynsolver.F |
176 |
DYNSOLVER |
UICEC(I,J,bi,bj)=UICE(I,J,1,bi,bj) |
|
./pkg/seaice/dynsolver.F |
283 |
DYNSOLVER |
UICEC(I,J,bi,bj)=UICE(I,J,1,bi,bj) |
|
./pkg/seaice/lsr.F |
399 |
LSR |
FXY(I,J,bi,bj)=-DRAGA(I,J,bi,bj)*UICEC(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
401 |
LSR |
3 +(HALF*(UICEC(I+1,J,bi,bj)-UICEC(I-1,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
405 |
LSR |
3 *((UICEC(I+1,J+1,bi,bj) |
|
./pkg/seaice/lsr.F |
406 |
LSR |
3 -UICEC(I-1,J+1,bi,bj))*RECIP_CSUICE(I,J+1,bi,bj) |
|
./pkg/seaice/lsr.F |
407 |
LSR |
3 -(UICEC(I+1,J-1,bi,bj)-UICEC(I-1,J-1,bi,bj)) |
|
./pkg/seaice/lsr.F |
410 |
LSR |
4 -(HALF*(UICEC(I+1,J,bi,bj)-UICEC(I-1,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
414 |
LSR |
4 +HALF*ETAMEAN(I,J,bi,bj)*((UICEC(I+1,J+1,bi,bj) |
|
./pkg/seaice/lsr.F |
415 |
LSR |
4 -UICEC(I-1,J+1,bi,bj))*RECIP_CSUICE(I,J+1,bi,bj) |
|
./pkg/seaice/lsr.F |
416 |
LSR |
4 -(UICEC(I+1,J-1,bi,bj)-UICEC(I-1,J-1,bi,bj)) |
|
./pkg/seaice/lsr.F |
419 |
LSR |
5 +HALF*(ETA(I,J,bi,bj)*(UICEC(I+1,J+1,bi,bj) |
|
./pkg/seaice/lsr.F |
420 |
LSR |
5 +UICEC(I,J+1,bi,bj) |
|
./pkg/seaice/lsr.F |
421 |
LSR |
5 -UICEC(I+1,J,bi,bj)-UICEC(I,J,bi,bj))+ETA(I,J-1,bi,bj) |
|
./pkg/seaice/lsr.F |
422 |
LSR |
5 *(UICEC(I+1,J,bi,bj) |
|
./pkg/seaice/lsr.F |
423 |
LSR |
5 +UICEC(I,J,bi,bj)-UICEC(I+1,J-1,bi,bj) |
|
./pkg/seaice/lsr.F |
424 |
LSR |
5 -UICEC(I,J-1,bi,bj))+ETA(I-1,J,bi,bj) |
|
./pkg/seaice/lsr.F |
425 |
LSR |
5 *(UICEC(I,J,bi,bj)+UICEC(I-1,J,bi,bj)-UICEC(I,J+1,bi,bj) |
|
./pkg/seaice/lsr.F |
426 |
LSR |
5 -UICEC(I-1,J+1,bi,bj)) |
|
./pkg/seaice/lsr.F |
427 |
LSR |
5 +ETA(I-1,J-1,bi,bj)*(UICEC(I,J-1,bi,bj) |
|
./pkg/seaice/lsr.F |
428 |
LSR |
5 +UICEC(I-1,J-1,bi,bj) |
|
./pkg/seaice/lsr.F |
429 |
LSR |
5 -UICEC(I,J,bi,bj)-UICEC(I-1,J,bi,bj))) |
|
./pkg/seaice/lsr.F |
434 |
LSR |
6 *TNGICE(I,J,bi,bj)*UICEC(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
437 |
LSR |
6 *(UICEC(I+1,J,bi,bj)-UICEC(I-1,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
441 |
LSR |
7 *(UICEC(I+1,J,bi,bj)-UICEC(I-1,J,bi,bj)) |
|
./pkg/seaice/seaice_init.F |
216 |
SEAICE_INIT |
UICEC(I,J,bi,bj)=ZERO |
|
./pkg/seaice/ostres.F |
118 |
OSTRES |
& (UICEC(I,J,bi,bj)-GWATX(I,J,bi,bj)) |
|
./pkg/seaice/ostres.F |
60 |
OSTRES |
& *(SINWAT*(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)) |