Symbol Description Uses
objf_thsice 9


File Line number Procedure Code
./pkg/thsice/THSICE_COST.h 14 NO PROCEDURE 
     &                objf_thsice
./pkg/thsice/THSICE_COST.h 15 NO PROCEDURE 
      _RL  objf_thsice        (nsx,nsy)
./pkg/thsice/thsice_cost_final.F 52 THSICE_COST_FINAL 
     &          + mult_thsice        * objf_thsice(bi,bj)
./pkg/thsice/thsice_cost_final.F 54 THSICE_COST_FINAL 
          f_thsice = f_thsice + objf_thsice(bi,bj)
./pkg/thsice/thsice_cost_init_varia.F 52 THSICE_COST_INIT_VARIA 
          objf_thsice(bi,bj)     = 0. _d 0
./pkg/thsice/thsice_cost_test.F 107 THSICE_COST_TEST 
                        objf_thsice(bi,bj) = objf_thsice(bi,bj) +
./pkg/thsice/thsice_cost_test.F 94 THSICE_COST_TEST 
                        objf_thsice(bi,bj) = objf_thsice(bi,bj) +