Symbol Description Uses
fnamew 4



File Line number Procedure Code
./pkg/ecco/cost_driftw.F 100 COST_DRIFTW
        write(fnamew(1:80),'(2a,i10.10)')
./pkg/ecco/cost_driftw.F 130 COST_DRIFTW
        call ACTIVE_READ_XYZ( fnamew, wbar, irec,
./pkg/ecco/cost_driftw.F 154 COST_DRIFTW
        call ACTIVE_READ_XYZ( fnamew, wbar, irec,
./pkg/ecco/cost_driftw.F 69 COST_DRIFTW
      character*(80) fnamew