| 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 |
289 |
STREAMICE_CG_MAKE_A |
& streamice_vmask(i-1+inodx,j-1+inody,bi,bj).eq.1.0) |
|
./pkg/streamice/streamice_driving_stress.F |
219 |
STREAMICE_DRIVING_STRESS |
IF (streamice_vmask(i,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_velmask_upd.F |
204 |
STREAMICE_VELMASK_UPD |
IF(streamice_vmask(i,j,bi,bj).eq.-1.0) THEN |
|
./pkg/streamice/streamice_velmask_upd.F |
205 |
STREAMICE_VELMASK_UPD |
streamice_vmask(i,j,bi,bj)=0.0 |