| 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 |
68 |
NO PROCEDURE |
_RL UICE (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/seaice/dynsolver.F |
250 |
DYNSOLVER |
UICENM1(I,J,bi,bj)=UICE(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
252 |
DYNSOLVER |
UICEC(I,J,bi,bj)=UICE(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
265 |
DYNSOLVER |
& (UICE(I+1,J+1,bi,bj)+UICE(I+1,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
266 |
DYNSOLVER |
& -UICE(I, J+1,bi,bj)-UICE(I, J,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
275 |
DYNSOLVER |
& (UICE(I+1,J+1,bi,bj)+UICE(I,J+1,bi,bj) |
|
./pkg/seaice/dynsolver.F |
276 |
DYNSOLVER |
& -UICE(I+1,J, bi,bj)-UICE(I,J, bi,bj)) |
|
./pkg/seaice/dynsolver.F |
281 |
DYNSOLVER |
& (UICE(I+1,J+1,bi,bj)+UICE(I, J+1,bi,bj) |
|
./pkg/seaice/dynsolver.F |
282 |
DYNSOLVER |
& +UICE(I, J, bi,bj)+UICE(I+1,J, bi,bj)) |
|
./pkg/seaice/dynsolver.F |
316 |
DYNSOLVER |
TEMPVAR=(UICE(I,J,bi,bj)-GWATX(I,J,bi,bj))**2 |
|
./pkg/seaice/dynsolver.F |
369 |
DYNSOLVER |
UICE(I,J,bi,bj)=HALF*(UICE(I,J,bi,bj)+UICENM1(I,J,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
371 |
DYNSOLVER |
UICEC(I,J,bi,bj)=UICE(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
384 |
DYNSOLVER |
& (UICE(I+1,J+1,bi,bj)+UICE(I+1,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
385 |
DYNSOLVER |
& -UICE(I, J+1,bi,bj)-UICE(I, J,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
394 |
DYNSOLVER |
& (UICE(I+1,J+1,bi,bj)+UICE(I,J+1,bi,bj) |
|
./pkg/seaice/dynsolver.F |
395 |
DYNSOLVER |
& -UICE(I+1,J, bi,bj)-UICE(I,J, bi,bj)) |
|
./pkg/seaice/dynsolver.F |
400 |
DYNSOLVER |
& (UICE(I+1,J+1,bi,bj)+UICE(I, J+1,bi,bj) |
|
./pkg/seaice/dynsolver.F |
401 |
DYNSOLVER |
& +UICE(I, J, bi,bj)+UICE(I+1,J, bi,bj)) |
|
./pkg/seaice/dynsolver.F |
435 |
DYNSOLVER |
TEMPVAR=(UICE(I,J,bi,bj)-GWATX(I,J,bi,bj))**2 |
|
./pkg/seaice/dynsolver.F |
517 |
DYNSOLVER |
UICE(i,j,bi,bj)=min(UICE(i,j,bi,bj),0.40 _d +00) |
|
./pkg/seaice/dynsolver.F |
531 |
DYNSOLVER |
UICE(i,j,bi,bj)=max(UICE(i,j,bi,bj),-0.40 _d +00) |
|
./pkg/seaice/lsr.F |
282 |
LSR |
UTMP(I,J,bi,bj)=UICE(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
292 |
LSR |
AA3=AA2*UICE(I-1,J,bi,bj)*UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
297 |
LSR |
AA3=AA1*UICE(I+1,J,bi,bj)*UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
302 |
LSR |
& +UVRT1(I,J,bi,bj)*UICE(I,J-1,bi,bj) |
|
./pkg/seaice/lsr.F |
303 |
LSR |
& +UVRT2(I,J,bi,bj)*UICE(I,J+1,bi,bj) |
|
./pkg/seaice/lsr.F |
323 |
LSR |
UICE(I,J,bi,bj)=UTMP(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
338 |
LSR |
UERR(I,J,bi,bj)=(UICE(I,J,bi,bj)-UTMP(I,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
354 |
LSR |
_EXCH_XY_RL( UICE, myThid ) |
|
./pkg/seaice/lsr.F |
621 |
LSR |
UICE(I,J,bi,bj)=UICE(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 |
74 |
OSTRES |
& ( UICE(I,J, bi,bj)-GWATX(I,J, bi,bj) |
|
./pkg/seaice/ostres.F |
75 |
OSTRES |
& + UICE(I,J+1,bi,bj)-GWATX(I,J+1,bi,bj) ) |
|
./pkg/seaice/ostres.F |
82 |
OSTRES |
& ( UICE(I,J, bi,bj)-GWATX(I,J, bi,bj) |
|
./pkg/seaice/ostres.F |
83 |
OSTRES |
& + UICE(I,J+1,bi,bj)-GWATX(I,J+1,bi,bj) ) |
|
./pkg/seaice/seaice_advdiff.F |
102 |
SEAICE_ADVDIFF |
uc(i,j,bi,bj)=.5 _d 0*(UICE(i,j,bi,bj)+UICE(i,j+1,bi,bj)) |
|
./pkg/seaice/seaice_advdiff.F |
94 |
SEAICE_ADVDIFF |
uc(i,j,bi,bj)=UICE(i,j,bi,bj) |
|
./pkg/seaice/seaice_cost_accumulate_mean.F |
57 |
SEAICE_COST_ACCUMULATE_MEAN |
& )*UICE(i,j,bi,bj) |
|
./pkg/seaice/seaice_diagnostics_state.F |
185 |
SEAICE_DIAGNOSTICS_STATE |
& UICE(i,j,bi,bj) |
|
./pkg/seaice/seaice_diagnostics_state.F |
188 |
SEAICE_DIAGNOSTICS_STATE |
& 0.5 _d 0*(UICE(i,j,bi,bj)+UICE(i,j+1,bi,bj)) |
|
./pkg/seaice/seaice_diagnostics_state.F |
63 |
SEAICE_DIAGNOSTICS_STATE |
CALL DIAGNOSTICS_FILL( UICE, 'SIuice ', 0, 1, 0, 1,1, myThid ) |
|
./pkg/seaice/seaice_init_varia.F |
315 |
SEAICE_INIT_VARIA |
UICE(i,j,bi,bj)=ZERO |
|
./pkg/seaice/seaice_init_varia.F |
71 |
SEAICE_INIT_VARIA |
UICE(i,j,bi,bj)=0. _d 0 |
|
./pkg/seaice/seaice_lsr.F |
491 |
SEAICE_LSR |
CALL DEBUG_STATS_RL(1,UICE,'UICE before iter. (SEAICE_LSR)', |
|
./pkg/seaice/seaice_lsr.F |
614 |
SEAICE_LSR |
CALL DEBUG_STATS_RL(1,UICE,'UICE after iter. (SEAICE_LSR)', |
|
./pkg/seaice/seaice_monitor.F |
102 |
SEAICE_MONITOR |
CALL MON_WRITESTATS_RL( 1, UICE, '_uice', |
|
./pkg/seaice/seaice_monitor.F |
98 |
SEAICE_MONITOR |
CALL MON_WRITESTATS_RL( 1, UICE, '_uice', |
|
./pkg/seaice/seaice_output.F |
169 |
SEAICE_OUTPUT |
& UICEtave(i,j,bi,bj) +UICE(i,j,bi,bj)*deltaTclock |
|
./pkg/seaice/seaice_read_pickup.F |
142 |
SEAICE_READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, 1, UICE , nj, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
207 |
SEAICE_READ_PICKUP |
CALL READ_MFLDS_3D_RL( 'siUICE ', UICE, |
|
./pkg/seaice/seaice_write_pickup.F |
121 |
SEAICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, UICE , nj, myIter, myThid ) |
|
./pkg/thsice/thsice_get_velocity.F |
68 |
THSICE_GET_VELOCITY |
uLoc(i,j) = UICE(i,j,bi,bj) |
|
./pkg/autodiff/autodiff_restore.F |
460 |
AUTODIFF_RESTORE |
UICE(I,J,bi,bj) = StoreSEAICE(I,J,bi,bj,7) |
|
./pkg/autodiff/autodiff_store.F |
563 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,7) = UICE(I,J,bi,bj) |