| File |
Line number |
Procedure |
Code |
|
./pkg/streamice/streamice_advect_thickness.F |
164 |
STREAMICE_ADVECT_THICKNESS |
IF (streamice_hmask(i,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress.F |
121 |
STREAMICE_DRIVING_STRESS |
ELSE IF (streamice_hmask(i,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress.F |
148 |
STREAMICE_DRIVING_STRESS |
IF (streamice_hmask(i-1,j-1,bi,bj).eq.1.0.AND. |
|
./pkg/streamice/streamice_driving_stress.F |
149 |
STREAMICE_DRIVING_STRESS |
& streamice_hmask(i,j-1,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress.F |
167 |
STREAMICE_DRIVING_STRESS |
ELSE IF (streamice_hmask(i-1,j-1,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress.F |
191 |
STREAMICE_DRIVING_STRESS |
ELSE IF (streamice_hmask(i,j-1,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress.F |
221 |
STREAMICE_DRIVING_STRESS |
IF (streamice_hmask(i,j-1,bi,bj).eq.1.0.AND. |
|
./pkg/streamice/streamice_driving_stress.F |
222 |
STREAMICE_DRIVING_STRESS |
& streamice_hmask(i,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress.F |
240 |
STREAMICE_DRIVING_STRESS |
ELSE IF (streamice_hmask(i,j-1,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress.F |
264 |
STREAMICE_DRIVING_STRESS |
ELSE IF (streamice_hmask(i,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress.F |
291 |
STREAMICE_DRIVING_STRESS |
IF (streamice_hmask(i-1,j-1,bi,bj).eq.1.0.AND. |
|
./pkg/streamice/streamice_driving_stress.F |
292 |
STREAMICE_DRIVING_STRESS |
& streamice_hmask(i-1,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress.F |
311 |
STREAMICE_DRIVING_STRESS |
ELSE IF (streamice_hmask(i-1,j-1,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress.F |
335 |
STREAMICE_DRIVING_STRESS |
ELSE IF (streamice_hmask(i-1,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress.F |
78 |
STREAMICE_DRIVING_STRESS |
IF (streamice_hmask(i-1,j,bi,bj).eq.1.0.AND. |
|
./pkg/streamice/streamice_driving_stress.F |
79 |
STREAMICE_DRIVING_STRESS |
& streamice_hmask(i,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress.F |
97 |
STREAMICE_DRIVING_STRESS |
ELSE IF (streamice_hmask(i-1,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_forced_buttress.F |
50 |
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 ) |
|
./verification/halfpipe_streamice/code_ad/cost_test.F |
86 |
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 |