| File |
Line number |
Procedure |
Code |
|
./pkg/streamice/streamice_apply_flux_ctrl.F |
57 |
STREAMICE_APPLY_FLUX_CTRL |
IF (streamice_umask(i,j,bi,bj).eq.3.0 .OR. |
|
./pkg/streamice/streamice_apply_flux_ctrl.F |
64 |
STREAMICE_APPLY_FLUX_CTRL |
IF (streamice_umask(i,j,bi,bj).eq.3.0 |
|
./pkg/streamice/streamice_driving_stress.F |
107 |
STREAMICE_DRIVING_STRESS |
IF (streamice_umask(i,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress_fd.F |
170 |
STREAMICE_DRIVING_STRESS_FD |
IF (streamice_umask(i,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress_fd.F |
186 |
STREAMICE_DRIVING_STRESS_FD |
IF (streamice_umask(i+1,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress_fd.F |
202 |
STREAMICE_DRIVING_STRESS_FD |
IF (streamice_umask(i,j+1,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress_fd.F |
218 |
STREAMICE_DRIVING_STRESS_FD |
IF (streamice_umask(i+1,j+1,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress_fd.F |
369 |
STREAMICE_DRIVING_STRESS_FD |
IF (streamice_umask(i+1,j+1,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_forced_buttress.F |
142 |
STREAMICE_FORCED_BUTTRESS |
if (streamice_umask(i+1,j+k,bi,bj).eq.1.0) then |
|
./pkg/streamice/streamice_forced_buttress.F |
172 |
STREAMICE_FORCED_BUTTRESS |
if (streamice_umask(i,j+k,bi,bj).eq.1.0) then |
|
./pkg/streamice/streamice_forced_buttress.F |
193 |
STREAMICE_FORCED_BUTTRESS |
if (streamice_umask(i+k,j+1,bi,bj).eq.1.0) then |
|
./pkg/streamice/streamice_forced_buttress.F |
212 |
STREAMICE_FORCED_BUTTRESS |
if (streamice_umask(i+k,j,bi,bj).eq.1.0) then |
|
./pkg/streamice/streamice_velmask_upd.F |
204 |
STREAMICE_VELMASK_UPD |
IF(streamice_umask(i,j,bi,bj).eq.-1.0) THEN |
|
./pkg/streamice/streamice_velmask_upd.F |
205 |
STREAMICE_VELMASK_UPD |
streamice_umask(i,j,bi,bj)=0.0 |