| File |
Line number |
Procedure |
Code |
|
./pkg/streamice/streamice_adv_front.F |
102 |
STREAMICE_ADV_FRONT |
hflux_x_SI(i,j,bi,bj)=hflux_x_SI2(i,j,bi,bj) |
|
./pkg/streamice/streamice_adv_front.F |
164 |
STREAMICE_ADV_FRONT |
IF (hflux_x_SI(i,j,bi,bj).gt. 0. _d 0) THEN |
|
./pkg/streamice/streamice_adv_front.F |
167 |
STREAMICE_ADV_FRONT |
tot_flux = tot_flux + hflux_x_SI(i,j,bi,bj) * |
|
./pkg/streamice/streamice_adv_front.F |
169 |
STREAMICE_ADV_FRONT |
hflux_x_SI(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_adv_front.F |
176 |
STREAMICE_ADV_FRONT |
IF (hflux_x_SI(i+1,j,bi,bj).lt. 0. _d 0) THEN |
|
./pkg/streamice/streamice_adv_front.F |
179 |
STREAMICE_ADV_FRONT |
tot_flux = tot_flux - hflux_x_SI(i+1,j,bi,bj) * |
|
./pkg/streamice/streamice_adv_front.F |
181 |
STREAMICE_ADV_FRONT |
hflux_x_SI(i+1,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_adv_front.F |
39 |
STREAMICE_ADV_FRONT |
_RL hflux_x_SI (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/streamice/streamice_advect_thickness.F |
221 |
STREAMICE_ADVECT_THICKNESS |
O hflux_x_SI, |
|
./pkg/streamice/streamice_advect_thickness.F |
235 |
STREAMICE_ADVECT_THICKNESS |
& (hflux_x_SI(i+1,j,bi,bj)*dyG(i+1,j,bi,bj) - |
|
./pkg/streamice/streamice_advect_thickness.F |
236 |
STREAMICE_ADVECT_THICKNESS |
& hflux_x_SI(i,j,bi,bj)*dyG(i,j,bi,bj)) |
|
./pkg/streamice/streamice_advect_thickness.F |
239 |
STREAMICE_ADVECT_THICKNESS |
PRINT *, "h neg after x", i,j,hflux_x_SI(i+1,j,bi,bj), |
|
./pkg/streamice/streamice_advect_thickness.F |
240 |
STREAMICE_ADVECT_THICKNESS |
& hflux_x_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_advect_thickness.F |
312 |
STREAMICE_ADVECT_THICKNESS |
& hflux_x_SI, hflux_y_SI ) |
|
./pkg/streamice/streamice_advect_thickness.F |
53 |
STREAMICE_ADVECT_THICKNESS |
_RL hflux_x_SI(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/streamice/streamice_advect_thickness.F |
88 |
STREAMICE_ADVECT_THICKNESS |
hflux_x_SI (i,j,bi,bj) = 0. _d 0 |