Symbol Description Uses
fctile 81


File Line number Procedure Code
./pkg/shelfice/shelfice_cost_shifwflx.F 147 SHELFICE_COST_SHIFWFLX 
         fctile = 0. _d 0
./pkg/shelfice/shelfice_cost_shifwflx.F 151 SHELFICE_COST_SHIFWFLX 
           fctile = fctile + tmpx*tmpx
./pkg/shelfice/shelfice_cost_shifwflx.F 159 SHELFICE_COST_SHIFWFLX 
         objf_shifwflx(bi,bj) = objf_shifwflx(bi,bj) + fctile
./pkg/shelfice/shelfice_cost_shifwflx.F 160 SHELFICE_COST_SHIFWFLX 
         fcthread             = fcthread + fctile
./pkg/shelfice/shelfice_cost_shifwflx.F 73 SHELFICE_COST_SHIFWFLX 
      _RL fctile
./pkg/ctrl/ctrl_cost_gen.F 100 CTRL_COST_GEN2D 
      _RL fctile
./pkg/ctrl/ctrl_cost_gen.F 182 CTRL_COST_GEN2D 
            fctile = 0. _d 0
./pkg/ctrl/ctrl_cost_gen.F 189 CTRL_COST_GEN2D 
                  fctile = fctile + xx_gen_weight(i,j,bi,bj)*tmpx*tmpx
./pkg/ctrl/ctrl_cost_gen.F 191 CTRL_COST_GEN2D 
                  fctile = fctile + tmpx*tmpx
./pkg/ctrl/ctrl_cost_gen.F 201 CTRL_COST_GEN2D 
            objf_gen_anom(bi,bj) = objf_gen_anom(bi,bj) + fctile
./pkg/ctrl/ctrl_cost_gen.F 286 CTRL_COST_GEN2D 
            fctile = 0. _d 0
./pkg/ctrl/ctrl_cost_gen.F 299 CTRL_COST_GEN2D 
                  fctile = fctile + xx_gen_weight(i,j,bi,bj)*tmpx*tmpx
./pkg/ctrl/ctrl_cost_gen.F 302 CTRL_COST_GEN2D 
                  fctile = fctile + xx_gen_weight(i,j,bi,bj)*tmpx*tmpx
./pkg/ctrl/ctrl_cost_gen.F 306 CTRL_COST_GEN2D 
                  fctile = fctile + tmpx*tmpx
./pkg/ctrl/ctrl_cost_gen.F 322 CTRL_COST_GEN2D 
            objf_gen_anom(bi,bj) = objf_gen_anom(bi,bj) + fctile
./pkg/ctrl/ctrl_cost_gen.F 352 CTRL_COST_GEN2D 
            fctile = 0. _d 0
./pkg/ctrl/ctrl_cost_gen.F 368 CTRL_COST_GEN2D 
                  fctile = fctile
./pkg/ctrl/ctrl_cost_gen.F 371 CTRL_COST_GEN2D 
                  fctile = fctile
./pkg/ctrl/ctrl_cost_gen.F 388 CTRL_COST_GEN2D 
            objf_gen_smoo(bi,bj) = objf_gen_smoo(bi,bj) + fctile
./pkg/ecco/cost_obcs_ageos.F 157 COST_OBCS_AGEOS 
      fctile   = 0. _d 0
./pkg/ecco/cost_obcs_ageos.F 281 COST_OBCS_AGEOS 
                  fctile = fctile + 100*wcurrent(k,bi,bj) *
./pkg/ecco/cost_obcs_ageos.F 353 COST_OBCS_AGEOS 
                  fctile = fctile + 100*wcurrent(k,bi,bj) *
./pkg/ecco/cost_obcs_ageos.F 421 COST_OBCS_AGEOS 
                fctile = fctile + 100*wcurrent(k,bi,bj) *
./pkg/ecco/cost_obcs_ageos.F 488 COST_OBCS_AGEOS 
                fctile = fctile + 100*wcurrent(k,bi,bj) *
./pkg/ecco/cost_obcs_ageos.F 498 COST_OBCS_AGEOS 
            fcthread          = fcthread          + fctile
./pkg/ecco/cost_obcs_ageos.F 499 COST_OBCS_AGEOS 
            objf_ageos(bi,bj) = objf_ageos(bi,bj) + fctile
./pkg/ecco/cost_obcs_ageos.F 512 COST_OBCS_AGEOS 
     &        fctile
./pkg/ecco/cost_obcs_ageos.F 80 COST_OBCS_AGEOS 
      _RL fctile
./pkg/ecco/cost_obcse.F 176 COST_OBCSE 
            fctile = 0. _d 0
./pkg/ecco/cost_obcse.F 184 COST_OBCSE 
                  fctile = fctile + wobcse(k,iobcs)
./pkg/ecco/cost_obcse.F 193 COST_OBCSE 
            objf_obcse(bi,bj) = objf_obcse(bi,bj) + fctile
./pkg/ecco/cost_obcse.F 194 COST_OBCSE 
            fcthread         = fcthread + fctile
./pkg/ecco/cost_obcse.F 91 COST_OBCSE 
      _RL fctile
./pkg/ecco/cost_obcsn.F 174 COST_OBCSN 
            fctile = 0. _d 0
./pkg/ecco/cost_obcsn.F 182 COST_OBCSN 
                  fctile = fctile + wobcsn(k,iobcs)
./pkg/ecco/cost_obcsn.F 192 COST_OBCSN 
            objf_obcsn(bi,bj) = objf_obcsn(bi,bj) + fctile
./pkg/ecco/cost_obcsn.F 193 COST_OBCSN 
            fcthread         = fcthread + fctile
./pkg/ecco/cost_obcsn.F 90 COST_OBCSN 
      _RL fctile
./pkg/ecco/cost_obcss.F 176 COST_OBCSS 
            fctile = 0. _d 0
./pkg/ecco/cost_obcss.F 184 COST_OBCSS 
                  fctile = fctile + wobcss(k,iobcs)
./pkg/ecco/cost_obcss.F 194 COST_OBCSS 
            objf_obcss(bi,bj) = objf_obcss(bi,bj) + fctile
./pkg/ecco/cost_obcss.F 195 COST_OBCSS 
            fcthread         = fcthread + fctile
./pkg/ecco/cost_obcss.F 90 COST_OBCSS 
      _RL fctile
./pkg/ecco/cost_obcsvol.F 213 COST_OBCSVOL 
              fctile = 0. _d 0
./pkg/ecco/cost_obcsvol.F 223 COST_OBCSVOL 
                    fctile = fctile - tmpx* drF(k) *dxg(i,j,bi,bj)
./pkg/ecco/cost_obcsvol.F 229 COST_OBCSVOL 
              sumvol         = sumvol + fctile
./pkg/ecco/cost_obcsvol.F 255 COST_OBCSVOL 
              fctile = 0. _d 0
./pkg/ecco/cost_obcsvol.F 265 COST_OBCSVOL 
                    fctile = fctile + tmpx* drF(k) *dxg(i,j+1,bi,bj)
./pkg/ecco/cost_obcsvol.F 271 COST_OBCSVOL 
              sumvol         = sumvol + fctile
./pkg/ecco/cost_obcsvol.F 298 COST_OBCSVOL 
              fctile = 0. _d 0
./pkg/ecco/cost_obcsvol.F 308 COST_OBCSVOL 
                    fctile = fctile + tmpy* drF(k) *dyg(i+1,j,bi,bj)
./pkg/ecco/cost_obcsvol.F 314 COST_OBCSVOL 
              sumvol         = sumvol + fctile
./pkg/ecco/cost_obcsvol.F 341 COST_OBCSVOL 
              fctile = 0. _d 0
./pkg/ecco/cost_obcsvol.F 351 COST_OBCSVOL 
                    fctile = fctile - tmpy* drF(k) *dyg(i,j,bi,bj)
./pkg/ecco/cost_obcsvol.F 357 COST_OBCSVOL 
              sumvol         = sumvol + fctile
./pkg/ecco/cost_obcsvol.F 76 COST_OBCSVOL 
      _RL fctile
./pkg/ecco/cost_obcsw.F 174 COST_OBCSW 
            fctile = 0. _d 0
./pkg/ecco/cost_obcsw.F 182 COST_OBCSW 
                  fctile = fctile + wobcsw(k,iobcs)
./pkg/ecco/cost_obcsw.F 191 COST_OBCSW 
            objf_obcsw(bi,bj) = objf_obcsw(bi,bj) + fctile
./pkg/ecco/cost_obcsw.F 192 COST_OBCSW 
            fcthread         = fcthread + fctile
./pkg/ecco/cost_obcsw.F 90 COST_OBCSW 
      _RL fctile