| 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 |
101 |
COST_ICE_TEST |
objf_ice(bi,bj) = objf_ice(bi,bj) + |
|
./pkg/seaice/cost_ice_test.F |
114 |
COST_ICE_TEST |
objf_ice(bi,bj) = objf_ice(bi,bj) + |
|
./pkg/seaice/cost_ice_test.F |
148 |
COST_ICE_TEST |
objf_ice(bi,bj) = objf_ice(bi,bj) + |
|
./pkg/seaice/cost_ice_test.F |
164 |
COST_ICE_TEST |
objf_ice(bi,bj) = objf_ice(bi,bj) + |
|
./pkg/seaice/cost_ice_test.F |
179 |
COST_ICE_TEST |
objf_ice(bi,bj) = objf_ice(bi,bj) + |
|
./pkg/seaice/cost_ice_test.F |
201 |
COST_ICE_TEST |
objf_ice(bi,bj) = objf_ice(bi,bj) + |
|
./pkg/seaice/cost_ice_test.F |
215 |
COST_ICE_TEST |
objf_ice(bi,bj) = objf_ice(bi,bj) + |
|
./pkg/seaice/cost_ice_test.F |
234 |
COST_ICE_TEST |
write(standardMessageUnit,*) 'ph-ice C ', myiter, objf_ice(1,1) |
|
./pkg/seaice/seaice_cost_final.F |
86 |
SEAICE_COST_FINAL |
& + mult_ice * objf_ice(bi,bj) |
|
./pkg/seaice/seaice_cost_final.F |
98 |
SEAICE_COST_FINAL |
CALL GLOBAL_SUM_TILE_RL( objf_ice, f_ice, myThid ) |
|
./pkg/seaice/seaice_cost_init_varia.F |
65 |
SEAICE_COST_INIT_VARIA |
objf_ice(bi,bj) = 0. _d 0 |