| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/SEAICE.h |
64 |
NO PROCEDURE |
COMMON/SEAICE_DYNVARS_1/AREA,HEFF,HSNOW,UICE,VICE |
|
./pkg/seaice/SEAICE.h |
69 |
NO PROCEDURE |
_RL VICE (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/seaice/dynsolver.F |
251 |
DYNSOLVER |
VICENM1(I,J,bi,bj)=VICE(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
253 |
DYNSOLVER |
VICEC(I,J,bi,bj)=VICE(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
268 |
DYNSOLVER |
& (VICE(I+1,J+1,bi,bj)+VICE(I, J+1,bi,bj) |
|
./pkg/seaice/dynsolver.F |
269 |
DYNSOLVER |
& +VICE(I, J, bi,bj)+VICE(I+1,J,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
272 |
DYNSOLVER |
& (VICE(I+1,J+1,bi,bj)+VICE(I,J+1,bi,bj) |
|
./pkg/seaice/dynsolver.F |
273 |
DYNSOLVER |
& -VICE(I+1,J, bi,bj)-VICE(I,J, bi,bj)) |
|
./pkg/seaice/dynsolver.F |
278 |
DYNSOLVER |
& (VICE(I+1,J+1,bi,bj)+VICE(I+1,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
279 |
DYNSOLVER |
& -VICE(I, J+1,bi,bj)-VICE(I, J,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
317 |
DYNSOLVER |
& +(VICE(I,J,bi,bj)-GWATY(I,J,bi,bj))**2 |
|
./pkg/seaice/dynsolver.F |
370 |
DYNSOLVER |
VICE(I,J,bi,bj)=HALF*(VICE(I,J,bi,bj)+VICENM1(I,J,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
372 |
DYNSOLVER |
VICEC(I,J,bi,bj)=VICE(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
387 |
DYNSOLVER |
& (VICE(I+1,J+1,bi,bj)+VICE(I, J+1,bi,bj) |
|
./pkg/seaice/dynsolver.F |
388 |
DYNSOLVER |
& +VICE(I, J, bi,bj)+VICE(I+1,J, bi,bj)) |
|
./pkg/seaice/dynsolver.F |
391 |
DYNSOLVER |
& (VICE(I+1,J+1,bi,bj)+VICE(I,J+1,bi,bj) |
|
./pkg/seaice/dynsolver.F |
392 |
DYNSOLVER |
& -VICE(I+1,J, bi,bj)-VICE(I,J, bi,bj)) |
|
./pkg/seaice/dynsolver.F |
397 |
DYNSOLVER |
& (VICE(I+1,J+1,bi,bj)+VICE(I+1,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
398 |
DYNSOLVER |
& -VICE(I, J+1,bi,bj)-VICE(I, J,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
436 |
DYNSOLVER |
& +(VICE(I,J,bi,bj)-GWATY(I,J,bi,bj))**2 |
|
./pkg/seaice/dynsolver.F |
518 |
DYNSOLVER |
VICE(i,j,bi,bj)=min(VICE(i,j,bi,bj),0.40 _d +00) |
|
./pkg/seaice/dynsolver.F |
532 |
DYNSOLVER |
VICE(i,j,bi,bj)=max(VICE(i,j,bi,bj),-0.40 _d +00) |
|
./pkg/seaice/lsr.F |
517 |
LSR |
VTMP(I,J,bi,bj)=VICE(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
534 |
LSR |
& *VICE(I,J-1,bi,bj)*UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
546 |
LSR |
& *VICE(I,J+1,bi,bj)*UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
551 |
LSR |
VRT(J)=FXY(I,J,bi,bj)+AA3+UVRT1(I,J,bi,bj)*VICE(I-1,J,bi,bj) |
|
./pkg/seaice/lsr.F |
552 |
LSR |
& +UVRT2(I,J,bi,bj)*VICE(I+1,J,bi,bj) |
|
./pkg/seaice/lsr.F |
572 |
LSR |
VICE(I,J,bi,bj)=VTMP(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
586 |
LSR |
UERR(I,J,bi,bj)=(VICE(I,J,bi,bj)-VTMP(I,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
603 |
LSR |
_EXCH_XY_RL( VICE, myThid ) |
|
./pkg/seaice/lsr.F |
622 |
LSR |
VICE(I,J,bi,bj)=VICE(I,J,bi,bj)*UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
627 |
LSR |
CALL EXCH_UV_XY_RL( UICE, VICE,.TRUE.,myThid) |
|
./pkg/seaice/ostres.F |
77 |
OSTRES |
& ( VICE(I, J,bi,bj)-GWATY(I, J,bi,bj) |
|
./pkg/seaice/ostres.F |
78 |
OSTRES |
& + VICE(I+1,J,bi,bj)-GWATY(I+1,J,bi,bj) ) |
|
./pkg/seaice/ostres.F |
85 |
OSTRES |
& ( VICE(I, J,bi,bj)-GWATY(I, J,bi,bj) |
|
./pkg/seaice/ostres.F |
86 |
OSTRES |
& + VICE(I+1,J,bi,bj)-GWATY(I+1,J,bi,bj) ) |
|
./pkg/seaice/seaice_advdiff.F |
103 |
SEAICE_ADVDIFF |
vc(i,j,bi,bj)=.5 _d 0*(VICE(i,j,bi,bj)+VICE(I+1,J,bi,bj)) |
|
./pkg/seaice/seaice_advdiff.F |
95 |
SEAICE_ADVDIFF |
vc(i,j,bi,bj)=VICE(i,j,bi,bj) |
|
./pkg/seaice/seaice_cost_accumulate_mean.F |
62 |
SEAICE_COST_ACCUMULATE_MEAN |
& )*VICE(i,j,bi,bj) |
|
./pkg/seaice/seaice_diagnostics_state.F |
204 |
SEAICE_DIAGNOSTICS_STATE |
& VICE(i,j,bi,bj) |
|
./pkg/seaice/seaice_diagnostics_state.F |
207 |
SEAICE_DIAGNOSTICS_STATE |
& 0.5 _d 0*(VICE(i,j,bi,bj)+VICE(i+1,j,bi,bj)) |
|
./pkg/seaice/seaice_diagnostics_state.F |
64 |
SEAICE_DIAGNOSTICS_STATE |
CALL DIAGNOSTICS_FILL( VICE, 'SIvice ', 0, 1, 0, 1,1, myThid ) |
|
./pkg/seaice/seaice_init_varia.F |
316 |
SEAICE_INIT_VARIA |
VICE(i,j,bi,bj)=ZERO |
|
./pkg/seaice/seaice_init_varia.F |
72 |
SEAICE_INIT_VARIA |
VICE(i,j,bi,bj)=0. _d 0 |
|
./pkg/seaice/seaice_lsr.F |
749 |
SEAICE_LSR |
CALL DEBUG_STATS_RL(1,VICE,'VICE before iter. (SEAICE_LSR)', |
|
./pkg/seaice/seaice_lsr.F |
859 |
SEAICE_LSR |
CALL DEBUG_STATS_RL(1,VICE,'VICE after iter. (SEAICE_LSR)', |
|
./pkg/seaice/seaice_monitor.F |
107 |
SEAICE_MONITOR |
CALL MON_WRITESTATS_RL( 1, VICE, '_vice', |
|
./pkg/seaice/seaice_monitor.F |
111 |
SEAICE_MONITOR |
CALL MON_WRITESTATS_RL( 1, VICE, '_vice', |
|
./pkg/seaice/seaice_output.F |
171 |
SEAICE_OUTPUT |
& VICEtave(i,j,bi,bj) +VICE(i,j,bi,bj)*deltaTclock |
|
./pkg/seaice/seaice_read_pickup.F |
144 |
SEAICE_READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, 1, VICE , nj, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
209 |
SEAICE_READ_PICKUP |
CALL READ_MFLDS_3D_RL( 'siVICE ', VICE, |
|
./pkg/seaice/seaice_write_pickup.F |
126 |
SEAICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, VICE , nj, myIter, myThid ) |
|
./pkg/thsice/thsice_get_velocity.F |
69 |
THSICE_GET_VELOCITY |
vLoc(i,j) = VICE(i,j,bi,bj) |
|
./pkg/autodiff/autodiff_restore.F |
461 |
AUTODIFF_RESTORE |
VICE(I,J,bi,bj) = StoreSEAICE(I,J,bi,bj,8) |
|
./pkg/autodiff/autodiff_store.F |
564 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,8) = VICE(I,J,bi,bj) |