Symbol Description Uses
fnameout 6



File Line number Procedure Code
./pkg/ecco/cost_trans_merid.F 148 COST_TRANS_MERID
      write(fnameout(1:80),'(a,i2.2,a,i4.4)')
./pkg/ecco/cost_trans_merid.F 150 COST_TRANS_MERID
      open(unit=funit,file=fnameout)
./pkg/ecco/cost_trans_merid.F 58 COST_TRANS_MERID
      character*(80) fnameout
./pkg/ecco/cost_trans_zonal.F 137 COST_TRANS_ZONAL
      write(fnameout(1:80),'(a,i2.2,a,i4.4)')
./pkg/ecco/cost_trans_zonal.F 139 COST_TRANS_ZONAL
      open(unit=funit,file=fnameout)
./pkg/ecco/cost_trans_zonal.F 58 COST_TRANS_ZONAL
      character*(80) fnameout