| File |
Line number |
Procedure |
Code |
|
./pkg/streamice/streamice_adv_front.F |
103 |
STREAMICE_ADV_FRONT |
hflux_y_SI(i,j,bi,bj)=hflux_y_SI2(i,j,bi,bj) |
|
./pkg/streamice/streamice_adv_front.F |
188 |
STREAMICE_ADV_FRONT |
IF (hflux_y_SI(i,j,bi,bj).gt. 0. _d 0) THEN |
|
./pkg/streamice/streamice_adv_front.F |
191 |
STREAMICE_ADV_FRONT |
tot_flux = tot_flux + hflux_y_SI(i,j,bi,bj) * |
|
./pkg/streamice/streamice_adv_front.F |
193 |
STREAMICE_ADV_FRONT |
hflux_y_SI(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_adv_front.F |
200 |
STREAMICE_ADV_FRONT |
IF (hflux_y_SI(i,j+1,bi,bj).lt. 0. _d 0) THEN |
|
./pkg/streamice/streamice_adv_front.F |
203 |
STREAMICE_ADV_FRONT |
tot_flux = tot_flux - hflux_y_SI(i,j+1,bi,bj) * |
|
./pkg/streamice/streamice_adv_front.F |
205 |
STREAMICE_ADV_FRONT |
hflux_y_SI(i,j+1,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_adv_front.F |
40 |
STREAMICE_ADV_FRONT |
_RL hflux_y_SI (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/streamice/streamice_advect_thickness.F |
264 |
STREAMICE_ADVECT_THICKNESS |
O hflux_y_SI, |
|
./pkg/streamice/streamice_advect_thickness.F |
278 |
STREAMICE_ADVECT_THICKNESS |
& (hflux_y_SI(i,j+1,bi,bj)*dxG(i,j+1,bi,bj) - |
|
./pkg/streamice/streamice_advect_thickness.F |
279 |
STREAMICE_ADVECT_THICKNESS |
& hflux_y_SI(i,j,bi,bj)*dxG(i,j,bi,bj)) * |
|
./pkg/streamice/streamice_advect_thickness.F |
282 |
STREAMICE_ADVECT_THICKNESS |
PRINT *, "h neg after y", i,j,hflux_y_SI(i,j+1,bi,bj), |
|
./pkg/streamice/streamice_advect_thickness.F |
283 |
STREAMICE_ADVECT_THICKNESS |
& hflux_y_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 |
54 |
STREAMICE_ADVECT_THICKNESS |
_RL hflux_y_SI(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/streamice/streamice_advect_thickness.F |
89 |
STREAMICE_ADVECT_THICKNESS |
hflux_y_SI (i,j,bi,bj) = 0. _d 0 |