| File |
Line number |
Procedure |
Code |
|
./pkg/streamice/streamice_apply_flux_ctrl.F |
58 |
STREAMICE_APPLY_FLUX_CTRL |
& streamice_vmask(i,j,bi,bj).eq.3.0) THEN |
|
./pkg/streamice/streamice_apply_flux_ctrl.F |
69 |
STREAMICE_APPLY_FLUX_CTRL |
IF (streamice_vmask(i,j,bi,bj).eq.3.0 |
|
./pkg/streamice/streamice_cg_functions.F |
290 |
STREAMICE_CG_MAKE_A |
& streamice_vmask(i-1+inodx,j-1+inody,bi,bj).eq.1.0) |
|
./pkg/streamice/streamice_driving_stress.F |
409 |
STREAMICE_DRIVING_STRESS |
IF (streamice_vmask(i,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress_fd.F |
321 |
STREAMICE_DRIVING_STRESS_FD |
IF (streamice_vmask(i,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress_fd.F |
337 |
STREAMICE_DRIVING_STRESS_FD |
IF (streamice_vmask(i,j+1,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress_fd.F |
353 |
STREAMICE_DRIVING_STRESS_FD |
IF (streamice_vmask(i+1,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_velmask_upd.F |
207 |
STREAMICE_VELMASK_UPD |
IF(streamice_vmask(i,j,bi,bj).eq.-1.0) THEN |
|
./pkg/streamice/streamice_velmask_upd.F |
208 |
STREAMICE_VELMASK_UPD |
streamice_vmask(i,j,bi,bj)=0.0 |