Symbol Description Uses
adfnameubar 3



File Line number Procedure Code
./pkg/ecco/ecco_cost_init_barfiles.F 289 ECCO_COST_INIT_BARFILES
      write(adfnameubar,'(3a,i10.10)')
./pkg/ecco/ecco_cost_init_barfiles.F 296 ECCO_COST_INIT_BARFILES
        call ACTIVE_WRITE_XYZ( adfnameubar, tmpfld3d, irec,
./pkg/ecco/ecco_cost_init_barfiles.F 79 ECCO_COST_INIT_BARFILES
      character*(128) adfnameubar