Symbol Description Uses
kgen 141


File Line number Procedure Code
./pkg/ecco/ecco_phys.F 228 ECCO_PHYS 
      do kgen=1,NGENCOST
./pkg/ecco/ecco_phys.F 230 ECCO_PHYS 
      itr = gencost_itracer(kgen)
./pkg/ecco/ecco_phys.F 232 ECCO_PHYS 
      call ECCO_ZERO(gencost_storefld(1-OLx,1-OLy,1,1,kgen),
./pkg/ecco/ecco_phys.F 251 ECCO_PHYS 
            if (.NOT.gencost_msk_is3d(kgen)) then
./pkg/ecco/ecco_phys.F 252 ECCO_PHYS 
              tmpmsk=gencost_mskCsurf(i,j,bi,bj,kgen)*
./pkg/ecco/ecco_phys.F 253 ECCO_PHYS 
     &               gencost_mskVertical(k,kgen)
./pkg/ecco/ecco_phys.F 256 ECCO_PHYS 
              kgen3d=gencost_msk_pointer3d(kgen)
./pkg/ecco/ecco_phys.F 263 ECCO_PHYS 
            if (gencost_barfile(kgen)(1:15).EQ.'m_boxmean_theta') then
./pkg/ecco/ecco_phys.F 266 ECCO_PHYS 
            elseif (gencost_barfile(kgen)(1:14).EQ.'m_boxmean_salt')
./pkg/ecco/ecco_phys.F 271 ECCO_PHYS 
            elseif (gencost_barfile(kgen)(1:17).EQ.'m_boxmean_ptracer')
./pkg/ecco/ecco_phys.F 278 ECCO_PHYS 
            gencost_storefld(i,j,bi,bj,kgen) =
./pkg/ecco/ecco_phys.F 279 ECCO_PHYS 
     &          gencost_storefld(i,j,bi,bj,kgen)
./pkg/ecco/ecco_phys.F 286 ECCO_PHYS 
          tmpmsk=maskC(i,j,1,bi,bj)*gencost_mskCsurf(i,j,bi,bj,kgen)
./pkg/ecco/ecco_phys.F 289 ECCO_PHYS 
          if (gencost_barfile(kgen)(1:13).EQ.'m_boxmean_eta') then
./pkg/ecco/ecco_phys.F 294 ECCO_PHYS 
          gencost_storefld(i,j,bi,bj,kgen) =
./pkg/ecco/ecco_phys.F 295 ECCO_PHYS 
     &        gencost_storefld(i,j,bi,bj,kgen)
./pkg/ecco/ecco_phys.F 304 ECCO_PHYS 
            if (.NOT.gencost_msk_is3d(kgen)) then
./pkg/ecco/ecco_phys.F 305 ECCO_PHYS 
              tmpmskW=gencost_mskWsurf(i,j,bi,bj,kgen)
./pkg/ecco/ecco_phys.F 306 ECCO_PHYS 
     &          *gencost_mskVertical(k,kgen)
./pkg/ecco/ecco_phys.F 307 ECCO_PHYS 
              tmpmskS=gencost_mskSsurf(i,j,bi,bj,kgen)
./pkg/ecco/ecco_phys.F 308 ECCO_PHYS 
     &          *gencost_mskVertical(k,kgen)
./pkg/ecco/ecco_phys.F 311 ECCO_PHYS 
              kgen3d=gencost_msk_pointer3d(kgen)
./pkg/ecco/ecco_phys.F 319 ECCO_PHYS 
            if (gencost_barfile(kgen)(1:13).EQ.'m_horflux_vol') then
./pkg/ecco/ecco_phys.F 320 ECCO_PHYS 
              gencost_storefld(i,j,bi,bj,kgen) =
./pkg/ecco/ecco_phys.F 321 ECCO_PHYS 
     &          gencost_storefld(i,j,bi,bj,kgen)
./pkg/ecco/ecco_phys.F 332 ECCO_PHYS 
      if (gencost_barfile(kgen)(1:9).EQ.'m_boxmean') then
./pkg/ecco/ecco_phys.F 334 ECCO_PHYS 
        CALL ECCO_DIV( gencost_storefld(1-OLx,1-OLy,1,1,kgen),
./pkg/ecco/ecco_phys.F 45 ECCO_PHYS 
      integer kgen, kgen3d, itr
./pkg/ecco/cost_gencost_boxmean.F 123 COST_GENCOST_BOXMEAN 
      il = ilnblnk(gencost_mask(kgen))
./pkg/ecco/cost_gencost_boxmean.F 124 COST_GENCOST_BOXMEAN 
      write(tempfile(1:128),'(2A)') gencost_mask(kgen)(1:il),'T'
./pkg/ecco/cost_gencost_boxmean.F 126 COST_GENCOST_BOXMEAN 
      if ( (.NOT.exst).OR.(gencost_mask(kgen).EQ.' ') ) then
./pkg/ecco/cost_gencost_boxmean.F 137 COST_GENCOST_BOXMEAN 
      IF ( myProcId .EQ. 0 ) num_gencost(1,1,kgen)=
./pkg/ecco/cost_gencost_boxmean.F 138 COST_GENCOST_BOXMEAN 
     &   num_gencost(1,1,kgen)+gencost_mskTemporal
./pkg/ecco/cost_gencost_boxmean.F 145 COST_GENCOST_BOXMEAN 
      objf_gencost(bi,bj,kgen)=objf_gencost(bi,bj,kgen)
./pkg/ecco/cost_gencost_boxmean.F 169 COST_GENCOST_BOXMEAN 
      CALL GLOBAL_SUM_TILE_RL( objf_gencost(1,1,kgen),
./pkg/ecco/cost_gencost_boxmean.F 40 COST_GENCOST_BOXMEAN 
      integer kgen
./pkg/ecco/cost_gencost_boxmean.F 75 COST_GENCOST_BOXMEAN 
      do kgen=1,NGENCOST
./pkg/ecco/cost_gencost_boxmean.F 76 COST_GENCOST_BOXMEAN 
        if ( (gencost_flag(kgen).EQ.-3).AND.(using_gencost(kgen)) ) then
./pkg/ecco/cost_gencost_boxmean.F 83 COST_GENCOST_BOXMEAN 
      mydummy=gencost_dummy(kgen)
./pkg/ecco/cost_gencost_boxmean.F 84 COST_GENCOST_BOXMEAN 
      il = ilnblnk( gencost_barfile(kgen) )
./pkg/ecco/cost_gencost_boxmean.F 86 COST_GENCOST_BOXMEAN 
     &    gencost_barfile(kgen)(1:il),'.',eccoiter
./pkg/ecco/cost_gencost_boxmean.F 98 COST_GENCOST_BOXMEAN 
      nrecloc=gencost_nrec(kgen)
./pkg/ecco/cost_gencost_bpv4.F 100 COST_GENCOST_BPV4 
      call ECCO_ZERO(gencost_weight(:,:,1,1,kgen),1,zeroRL,myThid)
./pkg/ecco/cost_gencost_bpv4.F 101 COST_GENCOST_BPV4 
      if ( gencost_errfile(kgen) .NE. ' ' )
./pkg/ecco/cost_gencost_bpv4.F 102 COST_GENCOST_BPV4 
     &     call ECCO_READWEI(gencost_errfile(kgen),
./pkg/ecco/cost_gencost_bpv4.F 103 COST_GENCOST_BPV4 
     &     gencost_weight(:,:,1,1,kgen),1,1,mythid)
./pkg/ecco/cost_gencost_bpv4.F 135 COST_GENCOST_BPV4 
           locwbp(i,j,bi,bj) = gencost_weight(i,j,bi,bj,kgen)
./pkg/ecco/cost_gencost_bpv4.F 145 COST_GENCOST_BPV4 
      il=ilnblnk( gencost_barfile(kgen) )
./pkg/ecco/cost_gencost_bpv4.F 147 COST_GENCOST_BPV4 
     &     gencost_barfile(kgen)(1:il),'.',eccoiter
./pkg/ecco/cost_gencost_bpv4.F 160 COST_GENCOST_BPV4 
     &                       gencost_dummy(kgen) )
./pkg/ecco/cost_gencost_bpv4.F 166 COST_GENCOST_BPV4 
        call COST_BP_READ( gencost_datafile(kgen),
./pkg/ecco/cost_gencost_bpv4.F 167 COST_GENCOST_BPV4 
     &       gencost_startdate(1,kgen),
./pkg/ecco/cost_gencost_bpv4.F 213 COST_GENCOST_BPV4 
     &                       gencost_dummy(kgen) )
./pkg/ecco/cost_gencost_bpv4.F 219 COST_GENCOST_BPV4 
        call COST_BP_READ( gencost_datafile(kgen),
./pkg/ecco/cost_gencost_bpv4.F 220 COST_GENCOST_BPV4 
     &       gencost_startdate(1,kgen),
./pkg/ecco/cost_gencost_bpv4.F 281 COST_GENCOST_BPV4 
      if (gencost_outputlevel(kgen).GT.0) then
./pkg/ecco/cost_gencost_bpv4.F 295 COST_GENCOST_BPV4 
      if (gencost_outputlevel(kgen).GT.0) then
./pkg/ecco/cost_gencost_bpv4.F 319 COST_GENCOST_BPV4 
                   objf_gencost(kgen,bi,bj) = objf_gencost(kgen,bi,bj)
./pkg/ecco/cost_gencost_bpv4.F 321 COST_GENCOST_BPV4 
                   num_gencost(kgen,bi,bj) = num_gencost(kgen,bi,bj)
./pkg/ecco/cost_gencost_bpv4.F 76 COST_GENCOST_BPV4 
      integer k, kgen
./pkg/ecco/cost_gencost_bpv4.F 91 COST_GENCOST_BPV4 
      kgen=0
./pkg/ecco/cost_gencost_bpv4.F 95 COST_GENCOST_BPV4 
     &       (using_gencost(k)) ) kgen=k
./pkg/ecco/cost_gencost_bpv4.F 98 COST_GENCOST_BPV4 
      if (kgen.GT.0) then
./pkg/ecco/cost_gencost_glbmean.F 102 COST_GENCOST_GLBMEAN 
     &   .AND.(using_gencost(k)) ) kgen=k
./pkg/ecco/cost_gencost_glbmean.F 104 COST_GENCOST_GLBMEAN 
      if (kgen.GT.0) then
./pkg/ecco/cost_gencost_glbmean.F 105 COST_GENCOST_GLBMEAN 
      locw   = gencost_wei1d(kgen)
./pkg/ecco/cost_gencost_glbmean.F 131 COST_GENCOST_GLBMEAN 
      locnrec = gencost_nrec(kgen)
./pkg/ecco/cost_gencost_glbmean.F 141 COST_GENCOST_GLBMEAN 
         dataglbmean(irec) =  gencost_1DDATA(irec,kgen)
./pkg/ecco/cost_gencost_glbmean.F 142 COST_GENCOST_GLBMEAN 
         if ( gencost_1DDATA(irec,kgen).gt.gencost_spmin(kgen) .and.
./pkg/ecco/cost_gencost_glbmean.F 143 COST_GENCOST_GLBMEAN 
     &        gencost_1DDATA(irec,kgen).lt.gencost_spmax(kgen) .and.
./pkg/ecco/cost_gencost_glbmean.F 144 COST_GENCOST_GLBMEAN 
     &        gencost_1DDATA(irec,kgen).ne.gencost_spzero(kgen) ) then
./pkg/ecco/cost_gencost_glbmean.F 164 COST_GENCOST_GLBMEAN 
      il=ilnblnk( gencost_barfile(kgen) )
./pkg/ecco/cost_gencost_glbmean.F 166 COST_GENCOST_GLBMEAN 
     &     gencost_barfile(kgen)(1:il),'.',eccoiter
./pkg/ecco/cost_gencost_glbmean.F 179 COST_GENCOST_GLBMEAN 
     &                       gencost_dummy(kgen) )
./pkg/ecco/cost_gencost_glbmean.F 221 COST_GENCOST_GLBMEAN 
     &                       gencost_dummy(kgen) )
./pkg/ecco/cost_gencost_glbmean.F 265 COST_GENCOST_GLBMEAN 
          objf_gencost(1,1,kgen) = objf_gencost(1,1,kgen)
./pkg/ecco/cost_gencost_glbmean.F 267 COST_GENCOST_GLBMEAN 
          num_gencost(1,1,kgen) = num_gencost(1,1,kgen)
./pkg/ecco/cost_gencost_glbmean.F 270 COST_GENCOST_GLBMEAN 
        WRITE(msgBuf,'(A,i6,2e16.5)') gencost_name(kgen)(1:10),irec,
./pkg/ecco/cost_gencost_glbmean.F 72 COST_GENCOST_GLBMEAN 
      integer k, kgen
./pkg/ecco/cost_gencost_glbmean.F 98 COST_GENCOST_GLBMEAN 
      kgen=0
./pkg/ecco/cost_gencost_sstv4.F 100 COST_GENCOST_SSTV4 
      integer kgen, kgen_lsc
./pkg/ecco/cost_gencost_sstv4.F 123 COST_GENCOST_SSTV4 
      kgen=0
./pkg/ecco/cost_gencost_sstv4.F 127 COST_GENCOST_SSTV4 
       if (gencost_name(k).EQ.'sstv4-amsre') kgen=k
./pkg/ecco/cost_gencost_sstv4.F 136 COST_GENCOST_SSTV4 
      if (kgen.NE.0) then
./pkg/ecco/cost_gencost_sstv4.F 139 COST_GENCOST_SSTV4 
      call ECCO_ZERO(gencost_weight(:,:,1,1,kgen),1,zeroRL,myThid)
./pkg/ecco/cost_gencost_sstv4.F 141 COST_GENCOST_SSTV4 
      if ( gencost_errfile(kgen) .NE. ' ' )
./pkg/ecco/cost_gencost_sstv4.F 142 COST_GENCOST_SSTV4 
     &     call ECCO_READWEI(gencost_errfile(kgen),
./pkg/ecco/cost_gencost_sstv4.F 143 COST_GENCOST_SSTV4 
     &     gencost_weight(:,:,1,1,kgen),1,1,mythid)
./pkg/ecco/cost_gencost_sstv4.F 155 COST_GENCOST_SSTV4 
      ilps=ilnblnk( gencost_barfile(kgen) )
./pkg/ecco/cost_gencost_sstv4.F 157 COST_GENCOST_SSTV4 
     &     gencost_barfile(kgen)(1:ilps),'.',eccoiter
./pkg/ecco/cost_gencost_sstv4.F 159 COST_GENCOST_SSTV4 
      spval = gencost_spmin(kgen)
./pkg/ecco/cost_gencost_sstv4.F 160 COST_GENCOST_SSTV4 
      mydummy = gencost_dummy(kgen)
./pkg/ecco/cost_gencost_sstv4.F 220 COST_GENCOST_SSTV4 
             il=ilnblnk(gencost_datafile(kgen))
./pkg/ecco/cost_gencost_sstv4.F 222 COST_GENCOST_SSTV4 
     &         gencost_datafile(kgen)(1:il), '_', yday
./pkg/ecco/cost_gencost_sstv4.F 378 COST_GENCOST_SSTV4 
             il=ilnblnk(gencost_datafile(kgen))
./pkg/ecco/cost_gencost_sstv4.F 380 COST_GENCOST_SSTV4 
     &         gencost_datafile(kgen)(1:il), '_', yday
./pkg/ecco/cost_gencost_sstv4.F 440 COST_GENCOST_SSTV4 
             junkweight = gencost_weight(i,j,bi,bj,kgen)*
./pkg/ecco/cost_gencost_sstv4.F 442 COST_GENCOST_SSTV4 
             objf_gencost(kgen,bi,bj) =
./pkg/ecco/cost_gencost_sstv4.F 443 COST_GENCOST_SSTV4 
     &          objf_gencost(kgen,bi,bj)+junk*junk*junkweight
./pkg/ecco/cost_gencost_sstv4.F 445 COST_GENCOST_SSTV4 
     &          num_gencost(kgen,bi,bj) =
./pkg/ecco/cost_gencost_sstv4.F 446 COST_GENCOST_SSTV4 
     &          num_gencost(kgen,bi,bj) + 1. _d 0
./pkg/ecco/cost_gencost_transp.F 103 COST_GENCOST_TRANSP 
        kgen(k)=0
./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 129 COST_GENCOST_TRANSP 
      if (kgen(icount).NE.0) then
./pkg/ecco/cost_gencost_transp.F 136 COST_GENCOST_TRANSP 
            objf_gencost(bi,bj,kgen(icount))=0. _d 0
./pkg/ecco/cost_gencost_transp.F 137 COST_GENCOST_TRANSP 
            num_gencost(bi,bj,kgen(icount))=0. _d 0
./pkg/ecco/cost_gencost_transp.F 143 COST_GENCOST_TRANSP 
        nrecloc=gencost_nrec(kgen(icount))
./pkg/ecco/cost_gencost_transp.F 151 COST_GENCOST_TRANSP 
          localperiod=gencost_period(kgen(icount))
./pkg/ecco/cost_gencost_transp.F 152 COST_GENCOST_TRANSP 
          dummy=gencost_dummy(kgen(icount))
./pkg/ecco/cost_gencost_transp.F 153 COST_GENCOST_TRANSP 
          spminloc=gencost_spmin(kgen(icount))
./pkg/ecco/cost_gencost_transp.F 154 COST_GENCOST_TRANSP 
          spmaxloc=gencost_spmax(kgen(icount))
./pkg/ecco/cost_gencost_transp.F 155 COST_GENCOST_TRANSP 
          spzeroloc=gencost_spzero(kgen(icount))
./pkg/ecco/cost_gencost_transp.F 162 COST_GENCOST_TRANSP 
            preproc(k2)=gencost_preproc(k2,kgen(icount))
./pkg/ecco/cost_gencost_transp.F 163 COST_GENCOST_TRANSP 
            preproc_i(k2)=gencost_preproc_i(k2,kgen(icount))
./pkg/ecco/cost_gencost_transp.F 164 COST_GENCOST_TRANSP 
            preproc_c(k2)=gencost_preproc_c(k2,kgen(icount))
./pkg/ecco/cost_gencost_transp.F 165 COST_GENCOST_TRANSP 
            preproc_r(k2)=gencost_preproc_r(k2,kgen(icount))
./pkg/ecco/cost_gencost_transp.F 171 COST_GENCOST_TRANSP 
          il=ilnblnk(gencost_name(kgen(icount)))
./pkg/ecco/cost_gencost_transp.F 173 COST_GENCOST_TRANSP 
     &    'Cost ',gencost_name(kgen(icount))(1:il),
./pkg/ecco/cost_gencost_transp.F 179 COST_GENCOST_TRANSP 
          mybarfile=gencost_barfile(kgen(icount))
./pkg/ecco/cost_gencost_transp.F 183 COST_GENCOST_TRANSP 
          if( .not. gencost_datafile(kgen(icount)).eq.' ') then
./pkg/ecco/cost_gencost_transp.F 213 COST_GENCOST_TRANSP 
            call COST_GENCAL(mybarfile,gencost_errfile(kgen(icount)),
./pkg/ecco/cost_gencost_transp.F 273 COST_GENCOST_TRANSP 
            il=ilnblnk(gencost_barfile(kgen(icount)))
./pkg/ecco/cost_gencost_transp.F 277 COST_GENCOST_TRANSP 
     &        'globalsum transp ',gencost_barfile(kgen(icount))(1:il),
./pkg/ecco/cost_gencost_transp.F 285 COST_GENCOST_TRANSP 
                objf_gencost(bi,bj,kgen(icount))=
./pkg/ecco/cost_gencost_transp.F 286 COST_GENCOST_TRANSP 
     &             objf_gencost(bi,bj,kgen(icount))+tmpMeanTile(bi,bj)
./pkg/ecco/cost_gencost_transp.F 297 COST_GENCOST_TRANSP 
              objf_gencost(bi,bj,kgen(icount))=
./pkg/ecco/cost_gencost_transp.F 298 COST_GENCOST_TRANSP 
     &           objf_gencost(bi,bj,kgen(icount))*facCost
./pkg/ecco/cost_gencost_transp.F 299 COST_GENCOST_TRANSP 
              num_gencost(bi,bj,kgen(icount))=nrecloc*facNum
./pkg/ecco/cost_gencost_transp.F 64 COST_GENCOST_TRANSP 
      integer kgen(NGENCOST3D)