Symbol Description Uses
cfname 6


File Line number Procedure Code
./pkg/seaice/seaice_cost_final.F 137 SEAICE_COST_FINAL 
        write(cfname,'(A,i4.4)') 'costfunction_seaice',optimcycle
./pkg/seaice/seaice_cost_final.F 138 SEAICE_COST_FINAL 
        open(unit=ifc,file=cfname)
./pkg/seaice/seaice_cost_final.F 57 SEAICE_COST_FINAL 
      character*23 cfname
./pkg/ecco/ecco_cost_final.F 1020 ECCO_COST_FINAL 
        write(cfname,'(A,i4.4)') 'costfunction',optimcycle
./pkg/ecco/ecco_cost_final.F 1021 ECCO_COST_FINAL 
        open(unit=ifc,file=cfname)
./pkg/ecco/ecco_cost_final.F 113 ECCO_COST_FINAL 
      character*20 cfname