Symbol Description Uses
fnametheta 48



File Line number Procedure Code
./pkg/ecco/cost_obcs_ageos.F 133 COST_OBCS_AGEOS
        write(fnametheta(1:80),'(2a,i10.10)')
./pkg/ecco/cost_obcs_ageos.F 183 COST_OBCS_AGEOS
        call ACTIVE_READ_XYZ( fnametheta, tbar, irec,
./pkg/ecco/cost_obcs_ageos.F 84 COST_OBCS_AGEOS
      character*(80) fnametheta
./pkg/ecco/cost_xbt.F 114 COST_XBT
        write(fnametheta(1:80),'(2a,i10.10)') 
./pkg/ecco/cost_xbt.F 129 COST_XBT
        call ACTIVE_READ_XYZ( fnametheta, tbar, irec,
./pkg/ecco/cost_xbt.F 67 COST_XBT
      character*(80) fnametheta
./pkg/ecco/cost_obcsn.F 109 COST_OBCSN
        write(fnametheta(1:80),'(2a,i10.10)')
./pkg/ecco/cost_obcsn.F 111 COST_OBCSN
        call ACTIVE_READ_XYZ( fnametheta, tbar, irec,
./pkg/ecco/cost_obcsn.F 65 COST_OBCSN
      character*(80) fnametheta
./pkg/ecco/cost_ctdtclim.F 111 COST_CTDTCLIM
        write(fnametheta(1:80),'(2a,i10.10)')
./pkg/ecco/cost_ctdtclim.F 125 COST_CTDTCLIM
            call ACTIVE_READ_XYZ( fnametheta, tbar, mrec,
./pkg/ecco/cost_ctdtclim.F 154 COST_CTDTCLIM
        call ACTIVE_READ_XYZ( fnametheta, tbar, irec,
./pkg/ecco/cost_ctdtclim.F 76 COST_CTDTCLIM
      character*(80) fnametheta
./pkg/ecco/cost_tmi.F 109 COST_TMI
        call ACTIVE_READ_XYZ( fnametheta, tbar, irec,
./pkg/ecco/cost_tmi.F 65 COST_TMI
      character*(80) fnametheta
./pkg/ecco/cost_tmi.F 99 COST_TMI
        write(fnametheta(1:80),'(2a,i10.10)')
./pkg/ecco/cost_argo_theta.F 112 COST_ARGO_THETA
        write(fnametheta(1:80),'(2a,i10.10)') 
./pkg/ecco/cost_argo_theta.F 127 COST_ARGO_THETA
        call ACTIVE_READ_XYZ( fnametheta, tbar, irec,
./pkg/ecco/cost_argo_theta.F 66 COST_ARGO_THETA
      character*(80) fnametheta
./pkg/ecco/cost_ctdt.F 110 COST_CTDT
        write(fnametheta(1:80),'(2a,i10.10)') 
./pkg/ecco/cost_ctdt.F 125 COST_CTDT
        call ACTIVE_READ_XYZ( fnametheta, tbar, irec,
./pkg/ecco/cost_ctdt.F 68 COST_CTDT
      character*(80) fnametheta
./pkg/ecco/cost_trans_zonal.F 118 COST_TRANS_ZONAL
      write(fnametheta(1:80),'(2a,i10.10)')
./pkg/ecco/cost_trans_zonal.F 149 COST_TRANS_ZONAL
        call ACTIVE_READ_XYZ( fnametheta, tbar, irec,
./pkg/ecco/cost_trans_zonal.F 58 COST_TRANS_ZONAL
      character*(80) fnametheta
./pkg/ecco/cost_obcss.F 109 COST_OBCSS
        write(fnametheta(1:80),'(2a,i10.10)')
./pkg/ecco/cost_obcss.F 111 COST_OBCSS
        call ACTIVE_READ_XYZ( fnametheta, tbar, irec,
./pkg/ecco/cost_obcss.F 65 COST_OBCSS
      character*(80) fnametheta
./pkg/ecco/cost_obcsw.F 109 COST_OBCSW
        write(fnametheta(1:80),'(2a,i10.10)')
./pkg/ecco/cost_obcsw.F 111 COST_OBCSW
        call ACTIVE_READ_XYZ( fnametheta, tbar, irec,
./pkg/ecco/cost_obcsw.F 65 COST_OBCSW
      character*(80) fnametheta
./pkg/ecco/cost_theta.F 110 COST_THETA
        write(fnametheta(1:80),'(2a,i10.10)')
./pkg/ecco/cost_theta.F 124 COST_THETA
            call ACTIVE_READ_XYZ( fnametheta, tbar, mrec,
./pkg/ecco/cost_theta.F 153 COST_THETA
        call ACTIVE_READ_XYZ( fnametheta, tbar, irec,
./pkg/ecco/cost_theta.F 74 COST_THETA
      character*(80) fnametheta
./pkg/ecco/cost_sst.F 109 COST_SST
        call ACTIVE_READ_XYZ( fnametheta, tbar, irec,
./pkg/ecco/cost_sst.F 65 COST_SST
      character*(80) fnametheta
./pkg/ecco/cost_sst.F 99 COST_SST
        write(fnametheta(1:80),'(2a,i10.10)')
./pkg/ecco/cost_trans_merid.F 129 COST_TRANS_MERID
      write(fnametheta(1:80),'(2a,i10.10)')
./pkg/ecco/cost_trans_merid.F 160 COST_TRANS_MERID
        call ACTIVE_READ_XYZ( fnametheta, tbar, irec,
./pkg/ecco/cost_trans_merid.F 58 COST_TRANS_MERID
      character*(80) fnametheta
./pkg/ecco/cost_drift.F 109 COST_DRIFT
        write(fnametheta(1:80),'(2a,i10.10)')
./pkg/ecco/cost_drift.F 150 COST_DRIFT
        call ACTIVE_READ_XYZ( fnametheta, tbar, irec,
./pkg/ecco/cost_drift.F 181 COST_DRIFT
        call ACTIVE_READ_XYZ( fnametheta, tbar, irec,
./pkg/ecco/cost_drift.F 72 COST_DRIFT
      character*(80) fnametheta
./pkg/ecco/cost_obcse.F 109 COST_OBCSE
        write(fnametheta(1:80),'(2a,i10.10)')
./pkg/ecco/cost_obcse.F 111 COST_OBCSE
        call ACTIVE_READ_XYZ( fnametheta, tbar, irec,
./pkg/ecco/cost_obcse.F 65 COST_OBCSE
      character*(80) fnametheta