Symbol Description Uses
fnametheta 42



File Line number Procedure Code
./pkg/ecco/cost_argo_theta.F 113 COST_ARGO_THETA
        write(fnametheta(1:80),'(2a,i10.10)')
./pkg/ecco/cost_argo_theta.F 128 COST_ARGO_THETA
        call ACTIVE_READ_XYZ( fnametheta, tbar, irec,
./pkg/ecco/cost_argo_theta.F 67 COST_ARGO_THETA
      character*(80) fnametheta
./pkg/ecco/cost_ctdt.F 111 COST_CTDT
        write(fnametheta(1:80),'(2a,i10.10)')
./pkg/ecco/cost_ctdt.F 126 COST_CTDT
        call ACTIVE_READ_XYZ( fnametheta, tbar, irec,
./pkg/ecco/cost_ctdt.F 69 COST_CTDT
      character*(80) fnametheta
./pkg/ecco/cost_ctdtclim.F 112 COST_CTDTCLIM
        write(fnametheta(1:80),'(2a,i10.10)')
./pkg/ecco/cost_ctdtclim.F 126 COST_CTDTCLIM
            call ACTIVE_READ_XYZ( fnametheta, tbar, mrec,
./pkg/ecco/cost_ctdtclim.F 155 COST_CTDTCLIM
        call ACTIVE_READ_XYZ( fnametheta, tbar, irec,
./pkg/ecco/cost_ctdtclim.F 77 COST_CTDTCLIM
      character*(80) fnametheta
./pkg/ecco/cost_drift.F 109 COST_DRIFT
        write(fnametheta(1:80),'(2a,i10.10)')
./pkg/ecco/cost_drift.F 145 COST_DRIFT
        call ACTIVE_READ_XYZ( fnametheta, tbar, irec,
./pkg/ecco/cost_drift.F 176 COST_DRIFT
        call ACTIVE_READ_XYZ( fnametheta, tbar, irec,
./pkg/ecco/cost_drift.F 70 COST_DRIFT
      character*(80) fnametheta
./pkg/ecco/cost_obcs_ageos.F 134 COST_OBCS_AGEOS
        write(fnametheta(1:80),'(2a,i10.10)')
./pkg/ecco/cost_obcs_ageos.F 184 COST_OBCS_AGEOS
        call ACTIVE_READ_XYZ( fnametheta, tbar, irec,
./pkg/ecco/cost_obcs_ageos.F 85 COST_OBCS_AGEOS
      character*(80) fnametheta
./pkg/ecco/cost_obcse.F 111 COST_OBCSE
        write(fnametheta(1:80),'(2a,i10.10)')
./pkg/ecco/cost_obcse.F 113 COST_OBCSE
        call ACTIVE_READ_XYZ( fnametheta, tbar, irec,
./pkg/ecco/cost_obcse.F 67 COST_OBCSE
      character*(80) fnametheta
./pkg/ecco/cost_obcsn.F 111 COST_OBCSN
        write(fnametheta(1:80),'(2a,i10.10)')
./pkg/ecco/cost_obcsn.F 113 COST_OBCSN
        call ACTIVE_READ_XYZ( fnametheta, tbar, irec,
./pkg/ecco/cost_obcsn.F 67 COST_OBCSN
      character*(80) fnametheta
./pkg/ecco/cost_obcss.F 111 COST_OBCSS
        write(fnametheta(1:80),'(2a,i10.10)')
./pkg/ecco/cost_obcss.F 113 COST_OBCSS
        call ACTIVE_READ_XYZ( fnametheta, tbar, irec,
./pkg/ecco/cost_obcss.F 67 COST_OBCSS
      character*(80) fnametheta
./pkg/ecco/cost_obcsw.F 111 COST_OBCSW
        write(fnametheta(1:80),'(2a,i10.10)')
./pkg/ecco/cost_obcsw.F 113 COST_OBCSW
        call ACTIVE_READ_XYZ( fnametheta, tbar, irec,
./pkg/ecco/cost_obcsw.F 67 COST_OBCSW
      character*(80) fnametheta
./pkg/ecco/cost_theta.F 111 COST_THETA
        write(fnametheta(1:80),'(2a,i10.10)')
./pkg/ecco/cost_theta.F 125 COST_THETA
            call ACTIVE_READ_XYZ( fnametheta, tbar, mrec,
./pkg/ecco/cost_theta.F 155 COST_THETA
        call ACTIVE_READ_XYZ( fnametheta, tbar, irec,
./pkg/ecco/cost_theta.F 72 COST_THETA
      character*(80) fnametheta
./pkg/ecco/cost_trans_merid.F 130 COST_TRANS_MERID
      write(fnametheta(1:80),'(2a,i10.10)')
./pkg/ecco/cost_trans_merid.F 161 COST_TRANS_MERID
        call ACTIVE_READ_XYZ( fnametheta, tbar, irec,
./pkg/ecco/cost_trans_merid.F 59 COST_TRANS_MERID
      character*(80) fnametheta
./pkg/ecco/cost_trans_zonal.F 119 COST_TRANS_ZONAL
      write(fnametheta(1:80),'(2a,i10.10)')
./pkg/ecco/cost_trans_zonal.F 150 COST_TRANS_ZONAL
        call ACTIVE_READ_XYZ( fnametheta, tbar, irec,
./pkg/ecco/cost_trans_zonal.F 59 COST_TRANS_ZONAL
      character*(80) fnametheta
./pkg/ecco/cost_xbt.F 115 COST_XBT
        write(fnametheta(1:80),'(2a,i10.10)')
./pkg/ecco/cost_xbt.F 130 COST_XBT
        call ACTIVE_READ_XYZ( fnametheta, tbar, irec,
./pkg/ecco/cost_xbt.F 68 COST_XBT
      character*(80) fnametheta