| File |
Line number |
Procedure |
Code |
|
./pkg/streamice/streamice_adv_front.F |
102 |
STREAMICE_ADV_FRONT |
hflux_y_SI(i,j,bi,bj)=hflux_y_SI2(i,j,bi,bj) |
|
./pkg/streamice/streamice_adv_front.F |
187 |
STREAMICE_ADV_FRONT |
IF (hflux_y_SI(i,j,bi,bj).gt. 0. _d 0) THEN |
|
./pkg/streamice/streamice_adv_front.F |
190 |
STREAMICE_ADV_FRONT |
tot_flux = tot_flux + hflux_y_SI(i,j,bi,bj) * |
|
./pkg/streamice/streamice_adv_front.F |
192 |
STREAMICE_ADV_FRONT |
hflux_y_SI(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_adv_front.F |
199 |
STREAMICE_ADV_FRONT |
IF (hflux_y_SI(i,j+1,bi,bj).lt. 0. _d 0) THEN |
|
./pkg/streamice/streamice_adv_front.F |
202 |
STREAMICE_ADV_FRONT |
tot_flux = tot_flux - hflux_y_SI(i,j+1,bi,bj) * |
|
./pkg/streamice/streamice_adv_front.F |
204 |
STREAMICE_ADV_FRONT |
hflux_y_SI(i,j+1,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_adv_front.F |
37 |
STREAMICE_ADV_FRONT |
_RL hflux_y_SI (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/streamice/streamice_advect_thickness.F |
249 |
STREAMICE_ADVECT_THICKNESS |
O hflux_y_SI, |
|
./pkg/streamice/streamice_advect_thickness.F |
264 |
STREAMICE_ADVECT_THICKNESS |
& (hflux_y_SI(i,j+1,bi,bj)*dxG(i,j+1,bi,bj) - |
|
./pkg/streamice/streamice_advect_thickness.F |
265 |
STREAMICE_ADVECT_THICKNESS |
& hflux_y_SI(i,j,bi,bj)*dxG(i,j,bi,bj)) * |
|
./pkg/streamice/streamice_advect_thickness.F |
268 |
STREAMICE_ADVECT_THICKNESS |
PRINT *, "h neg after y", i,j,hflux_y_SI(i,j+1,bi,bj), |
|
./pkg/streamice/streamice_advect_thickness.F |
269 |
STREAMICE_ADVECT_THICKNESS |
& hflux_y_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 |
48 |
STREAMICE_ADVECT_THICKNESS |
_RL hflux_y_SI(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/streamice/streamice_advect_thickness.F |
72 |
STREAMICE_ADVECT_THICKNESS |
hflux_y_SI (i,j,bi,bj) = 0. _d 0 |