Symbol Description Uses
f_thsice 5


File Line number Procedure Code
./pkg/thsice/thsice_cost_final.F 38 THSICE_COST_FINAL 
      _RL f_thsice
./pkg/thsice/thsice_cost_final.F 44 THSICE_COST_FINAL 
      f_thsice      = 0. _d 0
./pkg/thsice/thsice_cost_final.F 54 THSICE_COST_FINAL 
          f_thsice = f_thsice + objf_thsice(bi,bj)
./pkg/thsice/thsice_cost_final.F 64 THSICE_COST_FINAL 
     &     ' --> f_thsice     = ', f_thsice