Symbol Description Uses
fnamefld 29



File Line number Procedure Code
./pkg/shelfice/shelfice_cost_shifwflx.F 131 SHELFICE_COST_SHIFWFLX
        write(fnamefld(1:80),'(2a,i10.10)')
./pkg/shelfice/shelfice_cost_shifwflx.F 139 SHELFICE_COST_SHIFWFLX
     &      fnamefld, tmpfld2d, irec, doglobalread,
./pkg/shelfice/shelfice_cost_shifwflx.F 77 SHELFICE_COST_SHIFWFLX
      character*(80) fnamefld
./pkg/ctrl/ctrl_cost_gen.F 112 CTRL_COST_GEN2D
      character*(80) fnamefld
./pkg/ctrl/ctrl_cost_gen.F 141 CTRL_COST_GEN2D
        write(fnamefld(1:80),'(2a,i10.10)')
./pkg/ctrl/ctrl_cost_gen.F 170 CTRL_COST_GEN2D
     &        fnamefld, tmpfld2d, irec, doglobalread,
./pkg/ctrl/ctrl_cost_gen.F 173 CTRL_COST_GEN2D
        CALL READ_REC_XY_RL( fnamefld, tmpfld2d, iRec, 1, myThid )
./pkg/ctrl/ctrl_cost_gen.F 216 CTRL_COST_GEN2D
     &        fnamefld, tmpfld2d, irec, doglobalread,
./pkg/ctrl/ctrl_cost_gen.F 219 CTRL_COST_GEN2D
        CALL READ_REC_XY_RL( fnamefld, tmpfld2d, iRec, 1, myThid )
./pkg/ctrl/ctrl_cost_gen.F 274 CTRL_COST_GEN2D
     &        fnamefld, tmpfld2d, irec, doglobalread,
./pkg/ctrl/ctrl_cost_gen.F 277 CTRL_COST_GEN2D
        CALL READ_REC_XY_RL( fnamefld, tmpfld2d, iRec, 1, myThid )
./pkg/ctrl/ctrl_cost_gen.F 338 CTRL_COST_GEN2D
     &        fnamefld, tmpfld2d, irec, doglobalread,
./pkg/ctrl/ctrl_cost_gen.F 341 CTRL_COST_GEN2D
        CALL READ_REC_XY_RL( fnamefld, tmpfld2d, iRec, 1, myThid )
./pkg/ctrl/ctrl_cost_gen.F 471 CTRL_COST_GEN3D
      character*(80) fnamefld
./pkg/ctrl/ctrl_cost_gen.F 495 CTRL_COST_GEN3D
        write(fnamefld(1:80),'(2a,i10.10)')
./pkg/ctrl/ctrl_cost_gen.F 510 CTRL_COST_GEN3D
      call ACTIVE_READ_XYZ( fnamefld, tmpfld3d, irec, doglobalread,
./pkg/ctrl/ctrl_cost_gen.F 514 CTRL_COST_GEN3D
        CALL READ_REC_XYZ_RL( fnamefld, tmpfld3d, iRec, 1, myThid )
./pkg/ecco/cost_obcse.F 100 COST_OBCSE
      character*(80) fnamefld
./pkg/ecco/cost_obcse.F 150 COST_OBCSE
        write(fnamefld(1:80),'(2a,i10.10)')
./pkg/ecco/cost_obcse.F 157 COST_OBCSE
        call ACTIVE_READ_YZ( fnamefld, tmpfield, irec, doglobalread,
./pkg/ecco/cost_obcsn.F 148 COST_OBCSN
        write(fnamefld(1:80),'(2a,i10.10)')
./pkg/ecco/cost_obcsn.F 155 COST_OBCSN
        call ACTIVE_READ_XZ( fnamefld, tmpfield, irec, doglobalread,
./pkg/ecco/cost_obcsn.F 98 COST_OBCSN
      character*(80) fnamefld
./pkg/ecco/cost_obcss.F 148 COST_OBCSS
        write(fnamefld(1:80),'(2a,i10.10)')
./pkg/ecco/cost_obcss.F 155 COST_OBCSS
        call ACTIVE_READ_XZ( fnamefld, tmpfield, irec, doglobalread,
./pkg/ecco/cost_obcss.F 98 COST_OBCSS
      character*(80) fnamefld
./pkg/ecco/cost_obcsw.F 148 COST_OBCSW
        write(fnamefld(1:80),'(2a,i10.10)')
./pkg/ecco/cost_obcsw.F 155 COST_OBCSW
        call ACTIVE_READ_YZ( fnamefld, tmpfield, irec, doglobalread,
./pkg/ecco/cost_obcsw.F 98 COST_OBCSW
      character*(80) fnamefld