| File |
Line number |
Procedure |
Code |
|
./pkg/streamice/streamice_adv_front.F |
101 |
STREAMICE_ADV_FRONT |
hflux_x_SI(i,j,bi,bj)=hflux_x_SI2(i,j,bi,bj) |
|
./pkg/streamice/streamice_adv_front.F |
163 |
STREAMICE_ADV_FRONT |
IF (hflux_x_SI(i,j,bi,bj).gt. 0. _d 0) THEN |
|
./pkg/streamice/streamice_adv_front.F |
166 |
STREAMICE_ADV_FRONT |
tot_flux = tot_flux + hflux_x_SI(i,j,bi,bj) * |
|
./pkg/streamice/streamice_adv_front.F |
168 |
STREAMICE_ADV_FRONT |
hflux_x_SI(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_adv_front.F |
175 |
STREAMICE_ADV_FRONT |
IF (hflux_x_SI(i+1,j,bi,bj).lt. 0. _d 0) THEN |
|
./pkg/streamice/streamice_adv_front.F |
178 |
STREAMICE_ADV_FRONT |
tot_flux = tot_flux - hflux_x_SI(i+1,j,bi,bj) * |
|
./pkg/streamice/streamice_adv_front.F |
180 |
STREAMICE_ADV_FRONT |
hflux_x_SI(i+1,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_adv_front.F |
36 |
STREAMICE_ADV_FRONT |
_RL hflux_x_SI (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/streamice/streamice_advect_thickness.F |
203 |
STREAMICE_ADVECT_THICKNESS |
O hflux_x_SI, |
|
./pkg/streamice/streamice_advect_thickness.F |
219 |
STREAMICE_ADVECT_THICKNESS |
& (hflux_x_SI(i+1,j,bi,bj)*dyG(i+1,j,bi,bj) - |
|
./pkg/streamice/streamice_advect_thickness.F |
220 |
STREAMICE_ADVECT_THICKNESS |
& hflux_x_SI(i,j,bi,bj)*dyG(i,j,bi,bj)) |
|
./pkg/streamice/streamice_advect_thickness.F |
223 |
STREAMICE_ADVECT_THICKNESS |
PRINT *, "h neg after x", i,j,hflux_x_SI(i+1,j,bi,bj), |
|
./pkg/streamice/streamice_advect_thickness.F |
224 |
STREAMICE_ADVECT_THICKNESS |
& hflux_x_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_advect_thickness.F |
298 |
STREAMICE_ADVECT_THICKNESS |
& hflux_x_SI, hflux_y_SI ) |
|
./pkg/streamice/streamice_advect_thickness.F |
47 |
STREAMICE_ADVECT_THICKNESS |
_RL hflux_x_SI(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/streamice/streamice_advect_thickness.F |
71 |
STREAMICE_ADVECT_THICKNESS |
hflux_x_SI (i,j,bi,bj) = 0. _d 0 |