| File |
Line number |
Procedure |
Code |
|
./pkg/streamice/streamice_adv_front.F |
157 |
STREAMICE_ADV_FRONT |
href = 0. _d 0 |
|
./pkg/streamice/streamice_adv_front.F |
166 |
STREAMICE_ADV_FRONT |
href = href + H_streamice(i-1,j,bi,bj) |
|
./pkg/streamice/streamice_adv_front.F |
178 |
STREAMICE_ADV_FRONT |
href = href + H_streamice(i+1,j,bi,bj) |
|
./pkg/streamice/streamice_adv_front.F |
190 |
STREAMICE_ADV_FRONT |
href = href + H_streamice(i,j-1,bi,bj) |
|
./pkg/streamice/streamice_adv_front.F |
202 |
STREAMICE_ADV_FRONT |
href = href + H_streamice(i,j+1,bi,bj) |
|
./pkg/streamice/streamice_adv_front.F |
210 |
STREAMICE_ADV_FRONT |
href = href / n_flux_1 |
|
./pkg/streamice/streamice_adv_front.F |
215 |
STREAMICE_ADV_FRONT |
IF (hpot .eq. href) THEN ! cell is exactly covered, no overflow |
|
./pkg/streamice/streamice_adv_front.F |
217 |
STREAMICE_ADV_FRONT |
H_streamice (i,j,bi,bj) = href |
|
./pkg/streamice/streamice_adv_front.F |
220 |
STREAMICE_ADV_FRONT |
ELSEIF (hpot .lt. href) THEN ! cell still unfilled |
|
./pkg/streamice/streamice_adv_front.F |
223 |
STREAMICE_ADV_FRONT |
area_shelf_streamice (i,j,bi,bj) = partial_vol / href |
|
./pkg/streamice/streamice_adv_front.F |
224 |
STREAMICE_ADV_FRONT |
H_streamice (i,j,bi,bj) = href |
|
./pkg/streamice/streamice_adv_front.F |
233 |
STREAMICE_ADV_FRONT |
partial_vol = partial_vol - href * rA(i,j,bi,bj) |
|
./pkg/streamice/streamice_adv_front.F |
266 |
STREAMICE_ADV_FRONT |
H_streamice(i,j,bi,bj) = href + partial_vol * |
|
./pkg/streamice/streamice_adv_front.F |
269 |
STREAMICE_ADV_FRONT |
H_streamice(i,j,bi,bj) = href |
|
./pkg/streamice/streamice_adv_front.F |
50 |
STREAMICE_ADV_FRONT |
_RL href, rho, partial_vol, tot_flux, hpot |