Symbol Description Uses
fnamefld 60


File Line number Procedure Code
./pkg/shelfice/shelfice_cost_shifwflx.F 125 SHELFICE_COST_SHIFWFLX 
        write(fnamefld(1:80),'(2a,i10.10)')
./pkg/shelfice/shelfice_cost_shifwflx.F 133 SHELFICE_COST_SHIFWFLX 
     &      fnamefld, tmpfld2d, irec, doglobalread,
./pkg/shelfice/shelfice_cost_shifwflx.F 71 SHELFICE_COST_SHIFWFLX 
      character*(80) fnamefld
./pkg/ecco/cost_bottomdrag.F 57 COST_BOTTOMDRAG 
      character*(80) fnamefld
./pkg/ecco/cost_bottomdrag.F 87 COST_BOTTOMDRAG 
        write(fnamefld(1:80),'(2a,i10.10)')
./pkg/ecco/cost_bottomdrag.F 93 COST_BOTTOMDRAG 
      call ACTIVE_READ_XY( fnamefld, tmpfld2d, irec, doglobalread,
./pkg/ecco/cost_diffkr.F 57 COST_DIFFKR 
      character*(80) fnamefld
./pkg/ecco/cost_diffkr.F 87 COST_DIFFKR 
        write(fnamefld(1:80),'(2a,i10.10)')
./pkg/ecco/cost_diffkr.F 93 COST_DIFFKR 
      call ACTIVE_READ_XYZ( fnamefld, tmpfld3d, irec, doglobalread,
./pkg/ecco/cost_etan0.F 101 COST_ETAN0 
        write(fnamefld(1:80),'(2a,i10.10)')
./pkg/ecco/cost_etan0.F 106 COST_ETAN0 
     &     fnamefld, tmpfld2d, irec, doglobalread,
./pkg/ecco/cost_etan0.F 69 COST_ETAN0 
      character*(80) fnamefld
./pkg/ecco/cost_forcing_gen.F 128 COST_FORCING_GEN 
        write(fnamefld(1:80),'(2a,i10.10)')
./pkg/ecco/cost_forcing_gen.F 153 COST_FORCING_GEN 
     &        fnamefld, tmpfld2d, irec, doglobalread,
./pkg/ecco/cost_forcing_gen.F 202 COST_FORCING_GEN 
     &        fnamefld, tmpfld2d, irec, doglobalread,
./pkg/ecco/cost_forcing_gen.F 250 COST_FORCING_GEN 
     &        fnamefld, tmpfld2d, irec, doglobalread,
./pkg/ecco/cost_forcing_gen.F 97 COST_FORCING_GEN 
      character*(80) fnamefld
./pkg/ecco/cost_kapgm.F 60 COST_KAPGM 
      character*(80) fnamefld
./pkg/ecco/cost_kapgm.F 90 COST_KAPGM 
        write(fnamefld(1:80),'(2a,i10.10)')
./pkg/ecco/cost_kapgm.F 96 COST_KAPGM 
      call ACTIVE_READ_XYZ( fnamefld, tmpfld3d, irec, doglobalread,
./pkg/ecco/cost_kapredi.F 60 COST_KAPREDI 
      character*(80) fnamefld
./pkg/ecco/cost_kapredi.F 90 COST_KAPREDI 
        write(fnamefld(1:80),'(2a,i10.10)')
./pkg/ecco/cost_kapredi.F 96 COST_KAPREDI 
      call ACTIVE_READ_XYZ( fnamefld, tmpfld3d, irec, doglobalread,
./pkg/ecco/cost_obcse.F 141 COST_OBCSE 
        write(fnamefld(1:80),'(2a,i10.10)')
./pkg/ecco/cost_obcse.F 148 COST_OBCSE 
        call ACTIVE_READ_YZ( fnamefld, tmpfield, irec, doglobalread,
./pkg/ecco/cost_obcse.F 91 COST_OBCSE 
      character*(80) fnamefld
./pkg/ecco/cost_obcsn.F 139 COST_OBCSN 
        write(fnamefld(1:80),'(2a,i10.10)')
./pkg/ecco/cost_obcsn.F 146 COST_OBCSN 
        call ACTIVE_READ_XZ( fnamefld, tmpfield, irec, doglobalread,
./pkg/ecco/cost_obcsn.F 89 COST_OBCSN 
      character*(80) fnamefld
./pkg/ecco/cost_obcss.F 139 COST_OBCSS 
        write(fnamefld(1:80),'(2a,i10.10)')
./pkg/ecco/cost_obcss.F 146 COST_OBCSS 
        call ACTIVE_READ_XZ( fnamefld, tmpfield, irec, doglobalread,
./pkg/ecco/cost_obcss.F 89 COST_OBCSS 
      character*(80) fnamefld
./pkg/ecco/cost_obcsw.F 139 COST_OBCSW 
        write(fnamefld(1:80),'(2a,i10.10)')
./pkg/ecco/cost_obcsw.F 146 COST_OBCSW 
        call ACTIVE_READ_YZ( fnamefld, tmpfield, irec, doglobalread,
./pkg/ecco/cost_obcsw.F 89 COST_OBCSW 
      character*(80) fnamefld
./pkg/ecco/cost_salt0.F 101 COST_SALT0 
        write(fnamefld(1:80),'(2a,i10.10)')
./pkg/ecco/cost_salt0.F 105 COST_SALT0 
      call ACTIVE_READ_XYZ( fnamefld, tmpfld3d, irec, doglobalread,
./pkg/ecco/cost_salt0.F 146 COST_SALT0 
     &     fnamefld, tmpfld3d, irec, doglobalread,
./pkg/ecco/cost_salt0.F 69 COST_SALT0 
      character*(80) fnamefld
./pkg/ecco/cost_salt_ini_fin.F 61 COST_SALT_INI_FIN 
      character*(80) fnamefld
./pkg/ecco/cost_salt_ini_fin.F 90 COST_SALT_INI_FIN 
      write(fnamefld(1:80),'(2a,i10.10)')
./pkg/ecco/cost_salt_ini_fin.F 95 COST_SALT_INI_FIN 
      call ACTIVE_READ_XYZ( fnamefld, tmpfld3d, irec, doglobalread,
./pkg/ecco/cost_tau_eddy.F 102 COST_TAU_EDDY 
      call ACTIVE_READ_XYZ( fnamefld, tmpfld3d, irec, doglobalread,
./pkg/ecco/cost_tau_eddy.F 134 COST_TAU_EDDY 
        write(fnamefld(1:80),'(2a,i10.10)')
./pkg/ecco/cost_tau_eddy.F 137 COST_TAU_EDDY 
      call ACTIVE_READ_XYZ( fnamefld, tmpfld3d, irec, doglobalread,
./pkg/ecco/cost_tau_eddy.F 63 COST_TAU_EDDY 
      character*(80) fnamefld
./pkg/ecco/cost_tau_eddy.F 99 COST_TAU_EDDY 
        write(fnamefld(1:80),'(2a,i10.10)')
./pkg/ecco/cost_theta0.F 101 COST_THETA0 
        write(fnamefld(1:80),'(2a,i10.10)')
./pkg/ecco/cost_theta0.F 106 COST_THETA0 
     &     fnamefld, tmpfld3d, irec, doglobalread,
./pkg/ecco/cost_theta0.F 146 COST_THETA0 
     &     fnamefld, tmpfld3d, irec, doglobalread,
./pkg/ecco/cost_theta0.F 69 COST_THETA0 
      character*(80) fnamefld
./pkg/ecco/cost_theta_ini_fin.F 61 COST_THETA_INI_FIN 
      character*(80) fnamefld
./pkg/ecco/cost_theta_ini_fin.F 90 COST_THETA_INI_FIN 
      write(fnamefld(1:80),'(2a,i10.10)')
./pkg/ecco/cost_theta_ini_fin.F 95 COST_THETA_INI_FIN 
      call ACTIVE_READ_XYZ( fnamefld, tmpfld3d, irec, doglobalread,
./pkg/ecco/cost_uvel0.F 101 COST_UVEL0 
        write(fnamefld(1:80),'(2a,i10.10)')
./pkg/ecco/cost_uvel0.F 106 COST_UVEL0 
     &     fnamefld, tmpfld3d, irec, doglobalread,
./pkg/ecco/cost_uvel0.F 69 COST_UVEL0 
      character*(80) fnamefld
./pkg/ecco/cost_vvel0.F 101 COST_VVEL0 
        write(fnamefld(1:80),'(2a,i10.10)')
./pkg/ecco/cost_vvel0.F 106 COST_VVEL0 
     &     fnamefld, tmpfld3d, irec, doglobalread,
./pkg/ecco/cost_vvel0.F 69 COST_VVEL0 
      character*(80) fnamefld