| File |
Line number |
Procedure |
Code |
|
./pkg/shelfice/shelfice_step_icemass.F |
56 |
SHELFICE_STEP_ICEMASS |
if (streamice_hmask(i,j,bi,bj).eq.1 .or. |
|
./pkg/shelfice/shelfice_step_icemass.F |
57 |
SHELFICE_STEP_ICEMASS |
& streamice_hmask(i,j,bi,bj).eq.2) then |
|
./pkg/streamice/streamice_advect_thickness.F |
183 |
STREAMICE_ADVECT_THICKNESS |
IF (streamice_hmask(i,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress.F |
109 |
STREAMICE_DRIVING_STRESS |
IF (streamice_hmask(i-1,j,bi,bj).eq.1.0.AND. |
|
./pkg/streamice/streamice_driving_stress.F |
110 |
STREAMICE_DRIVING_STRESS |
& streamice_hmask(i,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress.F |
131 |
STREAMICE_DRIVING_STRESS |
ELSE IF (streamice_hmask(i-1,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress.F |
194 |
STREAMICE_DRIVING_STRESS |
ELSE IF (streamice_hmask(i,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress.F |
260 |
STREAMICE_DRIVING_STRESS |
IF (streamice_hmask(i-1,j-1,bi,bj).eq.1.0.AND. |
|
./pkg/streamice/streamice_driving_stress.F |
261 |
STREAMICE_DRIVING_STRESS |
& streamice_hmask(i,j-1,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress.F |
279 |
STREAMICE_DRIVING_STRESS |
ELSE IF (streamice_hmask(i-1,j-1,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress.F |
343 |
STREAMICE_DRIVING_STRESS |
ELSE IF (streamice_hmask(i,j-1,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress.F |
411 |
STREAMICE_DRIVING_STRESS |
IF (streamice_hmask(i,j-1,bi,bj).eq.1.0.AND. |
|
./pkg/streamice/streamice_driving_stress.F |
412 |
STREAMICE_DRIVING_STRESS |
& streamice_hmask(i,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress.F |
430 |
STREAMICE_DRIVING_STRESS |
ELSE IF (streamice_hmask(i,j-1,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress.F |
492 |
STREAMICE_DRIVING_STRESS |
ELSE IF (streamice_hmask(i,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress.F |
558 |
STREAMICE_DRIVING_STRESS |
IF (streamice_hmask(i-1,j-1,bi,bj).eq.1.0.AND. |
|
./pkg/streamice/streamice_driving_stress.F |
559 |
STREAMICE_DRIVING_STRESS |
& streamice_hmask(i-1,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress.F |
578 |
STREAMICE_DRIVING_STRESS |
ELSE IF (streamice_hmask(i-1,j-1,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress.F |
640 |
STREAMICE_DRIVING_STRESS |
ELSE IF (streamice_hmask(i-1,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress.F |
73 |
STREAMICE_DRIVING_STRESS |
if (streamice_hmask(i,j,bi,bj).eq.1) then |
|
./pkg/streamice/streamice_driving_stress_fd.F |
100 |
STREAMICE_DRIVING_STRESS_FD |
ELSEIF (streamice_hmask(i,j-1,bi,bj).eq.0.or. |
|
./pkg/streamice/streamice_driving_stress_fd.F |
101 |
STREAMICE_DRIVING_STRESS_FD |
& streamice_hmask(i,j-1,bi,bj).eq.2) THEN |
|
./pkg/streamice/streamice_driving_stress_fd.F |
103 |
STREAMICE_DRIVING_STRESS_FD |
IF (streamice_hmask(i,j+1,bi,bj).eq.1) THEN |
|
./pkg/streamice/streamice_driving_stress_fd.F |
117 |
STREAMICE_DRIVING_STRESS_FD |
ELSEIF(streamice_hmask(i,j,bi,bj).eq.0.or. |
|
./pkg/streamice/streamice_driving_stress_fd.F |
118 |
STREAMICE_DRIVING_STRESS_FD |
& streamice_hmask(i,j,bi,bj).eq.2) THEN |
|
./pkg/streamice/streamice_driving_stress_fd.F |
122 |
STREAMICE_DRIVING_STRESS_FD |
IF(streamice_hmask(i-1,j,bi,bj).eq.1.and. |
|
./pkg/streamice/streamice_driving_stress_fd.F |
123 |
STREAMICE_DRIVING_STRESS_FD |
& streamice_hmask(i-2,j,bi,bj).eq.1) THEN |
|
./pkg/streamice/streamice_driving_stress_fd.F |
136 |
STREAMICE_DRIVING_STRESS_FD |
IF(streamice_hmask(i,j-1,bi,bj).eq.1.and. |
|
./pkg/streamice/streamice_driving_stress_fd.F |
137 |
STREAMICE_DRIVING_STRESS_FD |
& streamice_hmask(i,j-2,bi,bj).eq.1) THEN |
|
./pkg/streamice/streamice_driving_stress_fd.F |
168 |
STREAMICE_DRIVING_STRESS_FD |
IF (streamice_hmask(i,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress_fd.F |
246 |
STREAMICE_DRIVING_STRESS_FD |
IF (streamice_hmask(i+1,j,bi,bj).eq.0.or. |
|
./pkg/streamice/streamice_driving_stress_fd.F |
247 |
STREAMICE_DRIVING_STRESS_FD |
& streamice_hmask(i+1,j,bi,bj).eq.2.or. |
|
./pkg/streamice/streamice_driving_stress_fd.F |
283 |
STREAMICE_DRIVING_STRESS_FD |
IF (streamice_hmask(i-1,j,bi,bj).eq.0.or. |
|
./pkg/streamice/streamice_driving_stress_fd.F |
284 |
STREAMICE_DRIVING_STRESS_FD |
& streamice_hmask(i-1,j,bi,bj).eq.2.or. |
|
./pkg/streamice/streamice_driving_stress_fd.F |
397 |
STREAMICE_DRIVING_STRESS_FD |
IF (streamice_hmask(i,j+1,bi,bj).eq.0.or. |
|
./pkg/streamice/streamice_driving_stress_fd.F |
398 |
STREAMICE_DRIVING_STRESS_FD |
& streamice_hmask(i,j+1,bi,bj).eq.2.or. |
|
./pkg/streamice/streamice_driving_stress_fd.F |
434 |
STREAMICE_DRIVING_STRESS_FD |
IF (streamice_hmask(i,j-1,bi,bj).eq.0.or. |
|
./pkg/streamice/streamice_driving_stress_fd.F |
435 |
STREAMICE_DRIVING_STRESS_FD |
& streamice_hmask(i,j-1,bi,bj).eq.2.or. |
|
./pkg/streamice/streamice_driving_stress_fd.F |
67 |
STREAMICE_DRIVING_STRESS_FD |
IF (streamice_hmask(i,j,bi,bj) .eq. 1) THEN |
|
./pkg/streamice/streamice_driving_stress_fd.F |
71 |
STREAMICE_DRIVING_STRESS_FD |
IF (streamice_hmask(i-1,j,bi,bj) .eq. 1) THEN |
|
./pkg/streamice/streamice_driving_stress_fd.F |
77 |
STREAMICE_DRIVING_STRESS_FD |
ELSEIF (streamice_hmask(i-1,j,bi,bj).eq.0.or. |
|
./pkg/streamice/streamice_driving_stress_fd.F |
78 |
STREAMICE_DRIVING_STRESS_FD |
& streamice_hmask(i-1,j,bi,bj).eq.2) THEN |
|
./pkg/streamice/streamice_driving_stress_fd.F |
80 |
STREAMICE_DRIVING_STRESS_FD |
IF (streamice_hmask(i+1,j,bi,bj).eq.1) THEN |
|
./pkg/streamice/streamice_driving_stress_fd.F |
94 |
STREAMICE_DRIVING_STRESS_FD |
IF (streamice_hmask(i,j-1,bi,bj) .eq. 1) THEN |
|
./pkg/streamice/streamice_forced_buttress.F |
62 |
STREAMICE_FORCED_BUTTRESS |
if (streamice_hmask(i,j,bi,bj).eq.1) then |
|
./pkg/streamice/streamice_forced_buttress.F |
89 |
STREAMICE_FORCED_BUTTRESS |
if (streamice_hmask(i,j,bi,bj).eq.1.0) then |
|
./pkg/streamice/streamice_read_pickup.F |
192 |
STREAMICE_READ_PICKUP |
CALL EXCH_XY_RS( streamice_hmask, myThid ) |
|
./pkg/streamice/streamice_timestep.F |
156 |
STREAMICE_TIMESTEP |
if (streamice_hmask(i,j,bi,bj).eq.1) then |
|
./verification/halfpipe_streamice/code_ad/cost_test.F |
85 |
COST_TEST |
if (streamice_hmask(i,j,bi,bj).eq.1.0) then |
|
./verification/halfpipe_streamice/code_oad/cost_test.F |
85 |
COST_TEST |
if (streamice_hmask(i,j,bi,bj).eq.1.0) then |