| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/SEAICE_COST.h |
13 |
NO PROCEDURE |
& objf_ice |
|
./pkg/seaice/SEAICE_COST.h |
18 |
NO PROCEDURE |
_RL objf_ice (nsx,nsy) |
|
./pkg/seaice/cost_ice_test.F |
100 |
COST_ICE_TEST |
objf_ice(bi,bj) = objf_ice(bi,bj) + |
|
./pkg/seaice/cost_ice_test.F |
113 |
COST_ICE_TEST |
objf_ice(bi,bj) = objf_ice(bi,bj) + |
|
./pkg/seaice/cost_ice_test.F |
147 |
COST_ICE_TEST |
objf_ice(bi,bj) = objf_ice(bi,bj) + |
|
./pkg/seaice/cost_ice_test.F |
163 |
COST_ICE_TEST |
objf_ice(bi,bj) = objf_ice(bi,bj) + |
|
./pkg/seaice/cost_ice_test.F |
178 |
COST_ICE_TEST |
objf_ice(bi,bj) = objf_ice(bi,bj) + |
|
./pkg/seaice/cost_ice_test.F |
200 |
COST_ICE_TEST |
objf_ice(bi,bj) = objf_ice(bi,bj) + |
|
./pkg/seaice/cost_ice_test.F |
218 |
COST_ICE_TEST |
print *, 'ph-ice C ', myiter, objf_ice(1,1) |
|
./pkg/seaice/seaice_cost_final.F |
91 |
SEAICE_COST_FINAL |
& + mult_ice * objf_ice(bi,bj) |
|
./pkg/seaice/seaice_cost_final.F |
96 |
SEAICE_COST_FINAL |
f_ice = f_ice + objf_ice(bi,bj) |
|
./pkg/seaice/seaice_cost_init_varia.F |
63 |
SEAICE_COST_INIT_VARIA |
objf_ice(bi,bj) = 0. _d 0 |