Symbol Description Uses
fnameout 6



File Line number Procedure Code
./pkg/ecco/cost_trans_zonal.F 136 COST_TRANS_ZONAL
      write(fnameout(1:80),'(a,i2.2,a,i4.4)')
./pkg/ecco/cost_trans_zonal.F 138 COST_TRANS_ZONAL
      open(unit=funit,file=fnameout)
./pkg/ecco/cost_trans_zonal.F 57 COST_TRANS_ZONAL
      character*(80) fnameout
./pkg/ecco/cost_trans_merid.F 147 COST_TRANS_MERID
      write(fnameout(1:80),'(a,i2.2,a,i4.4)')
./pkg/ecco/cost_trans_merid.F 149 COST_TRANS_MERID
      open(unit=funit,file=fnameout)
./pkg/ecco/cost_trans_merid.F 57 COST_TRANS_MERID
      character*(80) fnameout