Symbol Description Uses
icount_transp 15


File Line number Procedure Code
./pkg/ecco/cost_gencost_transp.F 111 COST_GENCOST_TRANSP 
      icount_transp=0
./pkg/ecco/cost_gencost_transp.F 115 COST_GENCOST_TRANSP 
          icount_transp=icount_transp+1
./pkg/ecco/cost_gencost_transp.F 116 COST_GENCOST_TRANSP 
          kgen(icount_transp)=k
./pkg/ecco/cost_gencost_transp.F 117 COST_GENCOST_TRANSP 
          il=ilnblnk(gencost_barfile(kgen(icount_transp)))
./pkg/ecco/cost_gencost_transp.F 118 COST_GENCOST_TRANSP 
          write(msgbuf,'(A,i4,A,A)') 'Cost ',kgen(icount_transp),
./pkg/ecco/cost_gencost_transp.F 119 COST_GENCOST_TRANSP 
     &    ': ',gencost_barfile(kgen(icount_transp))(1:il)
./pkg/ecco/cost_gencost_transp.F 128 COST_GENCOST_TRANSP 
      do icount=1,icount_transp
./pkg/ecco/cost_gencost_transp.F 71 COST_GENCOST_TRANSP 
      integer icount,icount_transp
./pkg/ecco/ecco_check.F 320 ECCO_CHECK 
      icount_transp=0
./pkg/ecco/ecco_check.F 50 ECCO_CHECK 
      INTEGER icount_transp
./pkg/ecco/ecco_check.F 634 ECCO_CHECK 
          if(using_gencost(k)) icount_transp=icount_transp+1
./pkg/ecco/ecco_check.F 635 ECCO_CHECK 
          if(icount_transp.gt.0) using_cost_transp = .TRUE.
./pkg/ecco/ecco_check.F 639 ECCO_CHECK 
     &     'using_cost_transp: ',icount_transp,using_cost_transp