| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/advect.F |
29 |
ADVECT |
_RL VICE (1-OLx:sNx+OLx,1-OLy:sNy+OLy,3,nSx,nSy) |
|
./pkg/seaice/advect.F |
65 |
ADVECT |
VI(I,J,bi,bj)=VICE(I,J,1,bi,bj) |
|
./pkg/seaice/advect.F |
7 |
ADVECT |
SUBROUTINE ADVECT( UICE,VICE,HEFF,HEFFM,myThid ) |
|
./pkg/seaice/seaice_pickup.F |
119 |
SEAICE_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL', 3, VICE, 5, myIt,myThid) |
|
./pkg/seaice/seaice_pickup.F |
127 |
SEAICE_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL', 3, VICE, 3, myIt,myThid) |
|
./pkg/seaice/seaice_pickup.F |
47 |
SEAICE_READ_PICKUP |
CALL MDSREADFIELD( fn, precFloat64, 'RL', 3, VICE , 5, myThid ) |
|
./pkg/seaice/seaice_pickup.F |
55 |
SEAICE_READ_PICKUP |
CALL MDSREADFIELD( fn, precFloat64, 'RL', 3, VICE , 3, myThid ) |
|
./pkg/seaice/seaice_pickup.F |
64 |
SEAICE_READ_PICKUP |
CALL SEAICE_EXCH_UV ( UICE, VICE, myThid ) |
|
./pkg/seaice/SEAICE.h |
31 |
NO PROCEDURE |
COMMON/SEAICE_DYNVARS/UICE,VICE,AREA |
|
./pkg/seaice/SEAICE.h |
35 |
NO PROCEDURE |
_RL VICE (1-OLx:sNx+OLx,1-OLy:sNy+OLy,3,nSx,nSy) |
|
./pkg/seaice/seaice_monitor.F |
57 |
SEAICE_MONITOR |
TMP_DIAG(i,j,bi,bj)=VICE(i,j,1,bi,bj) |
|
./pkg/seaice/seaice_model.F |
129 |
SEAICE_MODEL |
CALL ADVECT( UICE, VICE, HEFF, HEFFM, myThid ) |
|
./pkg/seaice/seaice_model.F |
130 |
SEAICE_MODEL |
CALL ADVECT( UICE, VICE, AREA, HEFFM, myThid ) |
|
./pkg/seaice/seaice_do_diags.F |
119 |
SEAICE_DO_DIAGS |
arr(i,j,bi,bj)=VICE(i,j,1,bi,bj) |
|
./pkg/seaice/seaice_do_diags.F |
199 |
SEAICE_DO_DIAGS |
& VICEtave(i,j,1,bi,bj) +VICE(i,j,1,bi,bj)*deltaTclock |
|
./pkg/seaice/dynsolver.F |
175 |
DYNSOLVER |
VICE(I,J,2,bi,bj)=VICE(I,J,1,bi,bj) |
|
./pkg/seaice/dynsolver.F |
177 |
DYNSOLVER |
VICEC(I,J,bi,bj)=VICE(I,J,1,bi,bj) |
|
./pkg/seaice/dynsolver.F |
191 |
DYNSOLVER |
& -QUART*(VICE(I+1,J+1,1,bi,bj)+VICE(I,J+1,1,bi,bj) |
|
./pkg/seaice/dynsolver.F |
192 |
DYNSOLVER |
& +VICE(I,J,1,bi,bj)+VICE(I+1,J,1,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
195 |
DYNSOLVER |
& *(VICE(I+1,J+1,1,bi,bj)+VICE(I,J+1,1,bi,bj) |
|
./pkg/seaice/dynsolver.F |
196 |
DYNSOLVER |
& -VICE(I+1,J,1,bi,bj)-VICE(I,J,1,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
201 |
DYNSOLVER |
& *(VICE(I+1,J+1,1,bi,bj)+VICE(I+1,J,1,bi,bj) |
|
./pkg/seaice/dynsolver.F |
202 |
DYNSOLVER |
& -VICE(I,J+1,1,bi,bj)-VICE(I,J,1,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
239 |
DYNSOLVER |
& +(VICE(I,J,1,bi,bj)-GWATY(I,J,bi,bj))**2 |
|
./pkg/seaice/dynsolver.F |
282 |
DYNSOLVER |
VICE(I,J,1,bi,bj)=HALF*(VICE(I,J,1,bi,bj)+VICE(I,J,2,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
284 |
DYNSOLVER |
VICEC(I,J,bi,bj)=VICE(I,J,1,bi,bj) |
|
./pkg/seaice/dynsolver.F |
298 |
DYNSOLVER |
& -QUART*(VICE(I+1,J+1,1,bi,bj)+VICE(I,J+1,1,bi,bj) |
|
./pkg/seaice/dynsolver.F |
299 |
DYNSOLVER |
& +VICE(I,J,1,bi,bj)+VICE(I+1,J,1,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
302 |
DYNSOLVER |
& *(VICE(I+1,J+1,1,bi,bj)+VICE(I,J+1,1,bi,bj) |
|
./pkg/seaice/dynsolver.F |
303 |
DYNSOLVER |
& -VICE(I+1,J,1,bi,bj)-VICE(I,J,1,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
308 |
DYNSOLVER |
& *(VICE(I+1,J+1,1,bi,bj)+VICE(I+1,J,1,bi,bj) |
|
./pkg/seaice/dynsolver.F |
309 |
DYNSOLVER |
& -VICE(I,J+1,1,bi,bj)-VICE(I,J,1,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
346 |
DYNSOLVER |
& +(VICE(I,J,1,bi,bj)-GWATY(I,J,bi,bj))**2 |
|
./pkg/seaice/dynsolver.F |
411 |
DYNSOLVER |
VICE(i,j,1,bi,bj)=min(VICE(i,j,1,bi,bj),0.40 _d +00) |
|
./pkg/seaice/dynsolver.F |
425 |
DYNSOLVER |
VICE(i,j,1,bi,bj)=max(VICE(i,j,1,bi,bj),-0.40 _d +00) |
|
./pkg/seaice/lsr.F |
108 |
LSR |
& +AMASS(I,J,bi,bj)/SEAICE_deltaTdyn*VICE(I,J,2,bi,bj) |
|
./pkg/seaice/lsr.F |
478 |
LSR |
VICE(I,J,3,bi,bj)=VICE(I,J,1,bi,bj) |
|
./pkg/seaice/lsr.F |
492 |
LSR |
& *VICE(I,J-1,1,bi,bj)*UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
501 |
LSR |
& *VICE(I,J+1,1,bi,bj)*UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
506 |
LSR |
VRT(J)=FXY(I,J,bi,bj)+AA3+UVRT1(I,J,bi,bj)*VICE(I-1,J,1,bi,bj) |
|
./pkg/seaice/lsr.F |
507 |
LSR |
& +UVRT2(I,J,bi,bj)*VICE(I+1,J,1,bi,bj) |
|
./pkg/seaice/lsr.F |
527 |
LSR |
VICE(I,J,1,bi,bj)=VICE(I,J,3,bi,bj) |
|
./pkg/seaice/lsr.F |
528 |
LSR |
& +WFAV*(VRT(J)-VICE(I,J,3,bi,bj)) |
|
./pkg/seaice/lsr.F |
541 |
LSR |
UERR(I,J,bi,bj)=(VICE(I,J,1,bi,bj)-VICE(I,J,3,bi,bj)) |
|
./pkg/seaice/lsr.F |
561 |
LSR |
CALL SEAICE_EXCH ( VICE, myThid ) |
|
./pkg/seaice/lsr.F |
584 |
LSR |
VICE(I,J,1,bi,bj)=VICE(I,J,1,bi,bj)*UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
589 |
LSR |
CALL SEAICE_EXCH_UV ( UICE, VICE, myThid ) |
|
./pkg/seaice/seaice_init.F |
291 |
SEAICE_INIT |
VICE(I,J,k,bi,bj)=ZERO |
|
./pkg/seaice/seaice_init.F |
73 |
SEAICE_INIT |
VICE(I,J,k,bi,bj)=ZERO |
|
./pkg/seaice/ostres.F |
61 |
OSTRES |
& +COSWAT*(GWATY(I,J,bi,bj)-VICE(I,J,1,bi,bj))) |
|
./pkg/seaice/ostres.F |
68 |
OSTRES |
WINDY(I,J,bi,bj)=WINDY(I,J,bi,bj)-(VICE(I,J,1,bi,bj) |
|
./pkg/seaice/ostres.F |
69 |
OSTRES |
& -VICE(I,J,3,bi,bj))*AMASS(I,J,bi,bj)/SEAICE_DT*TWO |
|
./pkg/seaice/growth.F |
305 |
GROWTH |
GHEFF(I,J)=SQRT(UICE(I,J,1,bi,bj)**2+VICE(I,J,1,bi,bj)**2) |