| File |
Line number |
Procedure |
Code |
|
./pkg/streamice/streamice_driving_stress.F |
172 |
STREAMICE_DRIVING_STRESS |
& (h_streamice(i-1,j,bi,bj)-firn_depth) * |
|
./pkg/streamice/streamice_driving_stress.F |
174 |
STREAMICE_DRIVING_STRESS |
& (h_streamice(i-1,j,bi,bj)-streamice_firn_correction)) - |
|
./pkg/streamice/streamice_driving_stress.F |
176 |
STREAMICE_DRIVING_STRESS |
& (h_streamice(i-1,j,bi,bj)-streamice_firn_correction)**2 |
|
./pkg/streamice/streamice_driving_stress.F |
235 |
STREAMICE_DRIVING_STRESS |
& (h_streamice(i,j,bi,bj)-firn_depth) * |
|
./pkg/streamice/streamice_driving_stress.F |
237 |
STREAMICE_DRIVING_STRESS |
& (h_streamice(i,j,bi,bj)-streamice_firn_correction)) - |
|
./pkg/streamice/streamice_driving_stress.F |
239 |
STREAMICE_DRIVING_STRESS |
& (h_streamice(i,j,bi,bj)-streamice_firn_correction)**2 |
|
./pkg/streamice/streamice_driving_stress.F |
320 |
STREAMICE_DRIVING_STRESS |
& (h_streamice(i-1,j-1,bi,bj)-firn_depth) * |
|
./pkg/streamice/streamice_driving_stress.F |
322 |
STREAMICE_DRIVING_STRESS |
& (h_streamice(i-1,j-1,bi,bj)-streamice_firn_correction))- |
|
./pkg/streamice/streamice_driving_stress.F |
324 |
STREAMICE_DRIVING_STRESS |
& (h_streamice(i-1,j-1,bi,bj)-streamice_firn_correction)**2 |
|
./pkg/streamice/streamice_driving_stress.F |
383 |
STREAMICE_DRIVING_STRESS |
& (h_streamice(i,j-1,bi,bj)-firn_depth) * |
|
./pkg/streamice/streamice_driving_stress.F |
385 |
STREAMICE_DRIVING_STRESS |
& (h_streamice(i,j-1,bi,bj)-streamice_firn_correction))- |
|
./pkg/streamice/streamice_driving_stress.F |
387 |
STREAMICE_DRIVING_STRESS |
& (h_streamice(i,j-1,bi,bj)-streamice_firn_correction)**2 |
|
./pkg/streamice/streamice_driving_stress.F |
470 |
STREAMICE_DRIVING_STRESS |
& (h_streamice(i,j-1,bi,bj)-firn_depth) * |
|
./pkg/streamice/streamice_driving_stress.F |
472 |
STREAMICE_DRIVING_STRESS |
& (h_streamice(i,j-1,bi,bj)-streamice_firn_correction))- |
|
./pkg/streamice/streamice_driving_stress.F |
474 |
STREAMICE_DRIVING_STRESS |
& (h_streamice(i,j-1,bi,bj)-streamice_firn_correction)**2 |
|
./pkg/streamice/streamice_driving_stress.F |
533 |
STREAMICE_DRIVING_STRESS |
& (h_streamice(i,j,bi,bj)-firn_depth) * |
|
./pkg/streamice/streamice_driving_stress.F |
535 |
STREAMICE_DRIVING_STRESS |
& (h_streamice(i,j,bi,bj)-streamice_firn_correction))- |
|
./pkg/streamice/streamice_driving_stress.F |
537 |
STREAMICE_DRIVING_STRESS |
& (h_streamice(i,j,bi,bj)-streamice_firn_correction)**2 |
|
./pkg/streamice/streamice_driving_stress.F |
618 |
STREAMICE_DRIVING_STRESS |
& (h_streamice(i-1,j-1,bi,bj)-firn_depth) * |
|
./pkg/streamice/streamice_driving_stress.F |
620 |
STREAMICE_DRIVING_STRESS |
& (h_streamice(i-1,j-1,bi,bj)-streamice_firn_correction))- |
|
./pkg/streamice/streamice_driving_stress.F |
622 |
STREAMICE_DRIVING_STRESS |
& (h_streamice(i-1,j-1,bi,bj)-streamice_firn_correction)**2 |
|
./pkg/streamice/streamice_driving_stress.F |
680 |
STREAMICE_DRIVING_STRESS |
& (h_streamice(i-1,j,bi,bj)-firn_depth) * |
|
./pkg/streamice/streamice_driving_stress.F |
682 |
STREAMICE_DRIVING_STRESS |
& (h_streamice(i-1,j,bi,bj)-streamice_firn_correction))- |
|
./pkg/streamice/streamice_driving_stress.F |
684 |
STREAMICE_DRIVING_STRESS |
& (h_streamice(i-1,j,bi,bj)-streamice_firn_correction)**2 |
|
./pkg/streamice/streamice_driving_stress.F |
74 |
STREAMICE_DRIVING_STRESS |
h = h_streamice(i,j,bi,bj) |
|
./pkg/streamice/streamice_forced_buttress.F |
116 |
STREAMICE_FORCED_BUTTRESS |
& (h_streamice(i,j,bi,bj)-firn_depth) * |
|
./pkg/streamice/streamice_forced_buttress.F |
118 |
STREAMICE_FORCED_BUTTRESS |
& (h_streamice(i,j,bi,bj)-streamice_firn_correction)) - |
|
./pkg/streamice/streamice_forced_buttress.F |
120 |
STREAMICE_FORCED_BUTTRESS |
& (h_streamice(i,j,bi,bj)-streamice_firn_correction)**2 |
|
./pkg/streamice/streamice_forced_buttress.F |
63 |
STREAMICE_FORCED_BUTTRESS |
h = h_streamice(i,j,bi,bj) |
|
./pkg/streamice/streamice_read_pickup.F |
189 |
STREAMICE_READ_PICKUP |
CALL EXCH_XY_RL( h_streamice, myThid ) |
|
./pkg/streamice/streamice_upd_ffrac_uncoupled.F |
114 |
STREAMICE_UPD_FFRAC_UNCOUPLED |
if (h_streamice(i,j,bi,bj).lt.firn_depth) then |
|
./pkg/streamice/streamice_upd_ffrac_uncoupled.F |
116 |
STREAMICE_UPD_FFRAC_UNCOUPLED |
& h_streamice(i,j,bi,bj) |
|
./pkg/streamice/streamice_upd_ffrac_uncoupled.F |
119 |
STREAMICE_UPD_FFRAC_UNCOUPLED |
& (h_streamice(i,j,bi,bj)-streamice_firn_correction) |
|
./pkg/streamice/streamice_upd_ffrac_uncoupled.F |
136 |
STREAMICE_UPD_FFRAC_UNCOUPLED |
if (h_streamice(i,j,bi,bj).lt.firn_depth) then |
|
./pkg/streamice/streamice_upd_ffrac_uncoupled.F |
138 |
STREAMICE_UPD_FFRAC_UNCOUPLED |
& (1-streamice_density_firn/rhow)*h_streamice(i,j,bi,bj) |
|
./pkg/streamice/streamice_upd_ffrac_uncoupled.F |
141 |
STREAMICE_UPD_FFRAC_UNCOUPLED |
& (1-rhoi/rhow)*h_streamice(i,j,bi,bj) + |
|
./verification/halfpipe_streamice/code_ad/cost_test.F |
88 |
COST_TEST |
& h_streamice(i,j,bi,bj)**2 |
|
./verification/halfpipe_streamice/code_oad/cost_test.F |
88 |
COST_TEST |
& h_streamice(i,j,bi,bj)**2 |