Symbol Description Uses
fctile 219


File Line number Procedure Code
./pkg/shelfice/shelfice_cost_shifwflx.F 141 SHELFICE_COST_SHIFWFLX 
         fctile = 0. _d 0
./pkg/shelfice/shelfice_cost_shifwflx.F 145 SHELFICE_COST_SHIFWFLX 
           fctile = fctile + tmpx*tmpx
./pkg/shelfice/shelfice_cost_shifwflx.F 153 SHELFICE_COST_SHIFWFLX 
         objf_shifwflx(bi,bj) = objf_shifwflx(bi,bj) + fctile
./pkg/shelfice/shelfice_cost_shifwflx.F 154 SHELFICE_COST_SHIFWFLX 
         fcthread             = fcthread + fctile
./pkg/shelfice/shelfice_cost_shifwflx.F 67 SHELFICE_COST_SHIFWFLX 
      _RL fctile
./pkg/ecco/cost_bottomdrag.F 103 COST_BOTTOMDRAG 
            fctile = 0. _d 0
./pkg/ecco/cost_bottomdrag.F 109 COST_BOTTOMDRAG 
                  fctile = fctile
./pkg/ecco/cost_bottomdrag.F 113 COST_BOTTOMDRAG 
                  fctile = fctile + tmpx*tmpx
./pkg/ecco/cost_bottomdrag.F 119 COST_BOTTOMDRAG 
            objf_bottomdrag(bi,bj) = objf_bottomdrag(bi,bj) + fctile
./pkg/ecco/cost_bottomdrag.F 120 COST_BOTTOMDRAG 
            fcthread          = fcthread + fctile
./pkg/ecco/cost_bottomdrag.F 133 COST_BOTTOMDRAG 
     &        fctile
./pkg/ecco/cost_bottomdrag.F 162 COST_BOTTOMDRAG 
      fctile   = 0. _d 0
./pkg/ecco/cost_bottomdrag.F 50 COST_BOTTOMDRAG 
      _RL fctile
./pkg/ecco/cost_ctdsclim.F 174 COST_CTDSCLIM 
            fctile = 0. _d 0
./pkg/ecco/cost_ctdsclim.F 195 COST_CTDSCLIM 
                     fctile = fctile +
./pkg/ecco/cost_ctdsclim.F 207 COST_CTDSCLIM 
            fcthread         = fcthread         + fctile
./pkg/ecco/cost_ctdsclim.F 208 COST_CTDSCLIM 
            objf_ctdsclim(bi,bj) = objf_ctdsclim(bi,bj) + fctile
./pkg/ecco/cost_ctdsclim.F 221 COST_CTDSCLIM 
     &        fctile
./pkg/ecco/cost_ctdsclim.F 72 COST_CTDSCLIM 
      _RL fctile
./pkg/ecco/cost_ctdtclim.F 173 COST_CTDTCLIM 
            fctile = 0. _d 0
./pkg/ecco/cost_ctdtclim.F 195 COST_CTDTCLIM 
                     fctile = fctile +
./pkg/ecco/cost_ctdtclim.F 207 COST_CTDTCLIM 
            fcthread         = fcthread         + fctile
./pkg/ecco/cost_ctdtclim.F 208 COST_CTDTCLIM 
            objf_ctdtclim(bi,bj) = objf_ctdtclim(bi,bj) + fctile
./pkg/ecco/cost_ctdtclim.F 221 COST_CTDTCLIM 
     &        fctile
./pkg/ecco/cost_ctdtclim.F 72 COST_CTDTCLIM 
      _RL fctile
./pkg/ecco/cost_diffkr.F 103 COST_DIFFKR 
            fctile = 0. _d 0
./pkg/ecco/cost_diffkr.F 111 COST_DIFFKR 
                  fctile = fctile
./pkg/ecco/cost_diffkr.F 115 COST_DIFFKR 
                  fctile = fctile + tmpx*tmpx
./pkg/ecco/cost_diffkr.F 124 COST_DIFFKR 
            objf_diffkr(bi,bj) = objf_diffkr(bi,bj) + fctile
./pkg/ecco/cost_diffkr.F 125 COST_DIFFKR 
            fcthread          = fcthread + fctile
./pkg/ecco/cost_diffkr.F 138 COST_DIFFKR 
     &        fctile
./pkg/ecco/cost_diffkr.F 167 COST_DIFFKR 
      fctile   = 0. _d 0
./pkg/ecco/cost_diffkr.F 50 COST_DIFFKR 
      _RL fctile
./pkg/ecco/cost_etan0.F 115 COST_ETAN0 
            fctile = 0. _d 0
./pkg/ecco/cost_etan0.F 121 COST_ETAN0 
                  fctile = fctile
./pkg/ecco/cost_etan0.F 125 COST_ETAN0 
                  fctile = fctile + tmpx*tmpx
./pkg/ecco/cost_etan0.F 133 COST_ETAN0 
            objf_etan0(bi,bj) = objf_etan0(bi,bj) + fctile
./pkg/ecco/cost_etan0.F 62 COST_ETAN0 
      _RL fctile
./pkg/ecco/cost_forcing_gen.F 211 COST_FORCING_GEN 
            fctile = 0. _d 0
./pkg/ecco/cost_forcing_gen.F 221 COST_FORCING_GEN 
                  fctile = fctile
./pkg/ecco/cost_forcing_gen.F 226 COST_FORCING_GEN 
                  fctile = fctile + tmpx*tmpx
./pkg/ecco/cost_forcing_gen.F 235 COST_FORCING_GEN 
            objf_gen_anom(bi,bj) = objf_gen_anom(bi,bj) + fctile
./pkg/ecco/cost_forcing_gen.F 261 COST_FORCING_GEN 
            fctile = 0. _d 0
./pkg/ecco/cost_forcing_gen.F 276 COST_FORCING_GEN 
                  fctile = fctile
./pkg/ecco/cost_forcing_gen.F 287 COST_FORCING_GEN 
            objf_gen_smoo(bi,bj) = objf_gen_smoo(bi,bj) + fctile
./pkg/ecco/cost_forcing_gen.F 85 COST_FORCING_GEN 
      _RL fctile
./pkg/ecco/cost_kapgm.F 106 COST_KAPGM 
            fctile = 0. _d 0
./pkg/ecco/cost_kapgm.F 114 COST_KAPGM 
                  fctile = fctile
./pkg/ecco/cost_kapgm.F 118 COST_KAPGM 
                  fctile = fctile + tmpx*tmpx
./pkg/ecco/cost_kapgm.F 125 COST_KAPGM 
            objf_kapgm(bi,bj) = objf_kapgm(bi,bj) + fctile
./pkg/ecco/cost_kapgm.F 126 COST_KAPGM 
            fcthread          = fcthread + fctile
./pkg/ecco/cost_kapgm.F 139 COST_KAPGM 
     &        fctile
./pkg/ecco/cost_kapgm.F 168 COST_KAPGM 
      fctile   = 0. _d 0
./pkg/ecco/cost_kapgm.F 53 COST_KAPGM 
      _RL fctile
./pkg/ecco/cost_kapredi.F 106 COST_KAPREDI 
            fctile = 0. _d 0
./pkg/ecco/cost_kapredi.F 114 COST_KAPREDI 
                  fctile = fctile
./pkg/ecco/cost_kapredi.F 118 COST_KAPREDI 
                  fctile = fctile + tmpx*tmpx
./pkg/ecco/cost_kapredi.F 125 COST_KAPREDI 
            objf_kapredi(bi,bj) = objf_kapredi(bi,bj) + fctile
./pkg/ecco/cost_kapredi.F 126 COST_KAPREDI 
            fcthread          = fcthread + fctile
./pkg/ecco/cost_kapredi.F 139 COST_KAPREDI 
     &        fctile
./pkg/ecco/cost_kapredi.F 168 COST_KAPREDI 
      fctile   = 0. _d 0
./pkg/ecco/cost_kapredi.F 53 COST_KAPREDI 
      _RL fctile
./pkg/ecco/cost_obcs_ageos.F 143 COST_OBCS_AGEOS 
      fctile   = 0. _d 0
./pkg/ecco/cost_obcs_ageos.F 267 COST_OBCS_AGEOS 
                  fctile = fctile + 100*wcurrent(k,bi,bj) *
./pkg/ecco/cost_obcs_ageos.F 339 COST_OBCS_AGEOS 
                  fctile = fctile + 100*wcurrent(k,bi,bj) *
./pkg/ecco/cost_obcs_ageos.F 407 COST_OBCS_AGEOS 
                fctile = fctile + 100*wcurrent(k,bi,bj) *
./pkg/ecco/cost_obcs_ageos.F 474 COST_OBCS_AGEOS 
                fctile = fctile + 100*wcurrent(k,bi,bj) *
./pkg/ecco/cost_obcs_ageos.F 484 COST_OBCS_AGEOS 
            fcthread          = fcthread          + fctile
./pkg/ecco/cost_obcs_ageos.F 485 COST_OBCS_AGEOS 
            objf_ageos(bi,bj) = objf_ageos(bi,bj) + fctile
./pkg/ecco/cost_obcs_ageos.F 498 COST_OBCS_AGEOS 
     &        fctile
./pkg/ecco/cost_obcs_ageos.F 66 COST_OBCS_AGEOS 
      _RL fctile
./pkg/ecco/cost_obcse.F 167 COST_OBCSE 
            fctile = 0. _d 0
./pkg/ecco/cost_obcse.F 175 COST_OBCSE 
                  fctile = fctile + wobcse(k,iobcs)
./pkg/ecco/cost_obcse.F 184 COST_OBCSE 
            objf_obcse(bi,bj) = objf_obcse(bi,bj) + fctile
./pkg/ecco/cost_obcse.F 185 COST_OBCSE 
            fcthread         = fcthread + fctile
./pkg/ecco/cost_obcse.F 82 COST_OBCSE 
      _RL fctile
./pkg/ecco/cost_obcsn.F 165 COST_OBCSN 
            fctile = 0. _d 0
./pkg/ecco/cost_obcsn.F 173 COST_OBCSN 
                  fctile = fctile + wobcsn(k,iobcs)
./pkg/ecco/cost_obcsn.F 183 COST_OBCSN 
            objf_obcsn(bi,bj) = objf_obcsn(bi,bj) + fctile
./pkg/ecco/cost_obcsn.F 184 COST_OBCSN 
            fcthread         = fcthread + fctile
./pkg/ecco/cost_obcsn.F 81 COST_OBCSN 
      _RL fctile
./pkg/ecco/cost_obcss.F 167 COST_OBCSS 
            fctile = 0. _d 0
./pkg/ecco/cost_obcss.F 175 COST_OBCSS 
                  fctile = fctile + wobcss(k,iobcs)
./pkg/ecco/cost_obcss.F 185 COST_OBCSS 
            objf_obcss(bi,bj) = objf_obcss(bi,bj) + fctile
./pkg/ecco/cost_obcss.F 186 COST_OBCSS 
            fcthread         = fcthread + fctile
./pkg/ecco/cost_obcss.F 81 COST_OBCSS 
      _RL fctile
./pkg/ecco/cost_obcsvol.F 202 COST_OBCSVOL 
              fctile = 0. _d 0
./pkg/ecco/cost_obcsvol.F 212 COST_OBCSVOL 
                    fctile = fctile - tmpx* drF(k) *dxg(i,j,bi,bj)
./pkg/ecco/cost_obcsvol.F 218 COST_OBCSVOL 
              sumvol         = sumvol + fctile
./pkg/ecco/cost_obcsvol.F 244 COST_OBCSVOL 
              fctile = 0. _d 0
./pkg/ecco/cost_obcsvol.F 254 COST_OBCSVOL 
                    fctile = fctile + tmpx* drF(k) *dxg(i,j+1,bi,bj)
./pkg/ecco/cost_obcsvol.F 260 COST_OBCSVOL 
              sumvol         = sumvol + fctile
./pkg/ecco/cost_obcsvol.F 287 COST_OBCSVOL 
              fctile = 0. _d 0
./pkg/ecco/cost_obcsvol.F 297 COST_OBCSVOL 
                    fctile = fctile + tmpy* drF(k) *dyg(i+1,j,bi,bj)
./pkg/ecco/cost_obcsvol.F 303 COST_OBCSVOL 
              sumvol         = sumvol + fctile
./pkg/ecco/cost_obcsvol.F 330 COST_OBCSVOL 
              fctile = 0. _d 0
./pkg/ecco/cost_obcsvol.F 340 COST_OBCSVOL 
                    fctile = fctile - tmpy* drF(k) *dyg(i,j,bi,bj)
./pkg/ecco/cost_obcsvol.F 346 COST_OBCSVOL 
              sumvol         = sumvol + fctile
./pkg/ecco/cost_obcsvol.F 65 COST_OBCSVOL 
      _RL fctile
./pkg/ecco/cost_obcsw.F 165 COST_OBCSW 
            fctile = 0. _d 0
./pkg/ecco/cost_obcsw.F 173 COST_OBCSW 
                  fctile = fctile + wobcsw(k,iobcs)
./pkg/ecco/cost_obcsw.F 182 COST_OBCSW 
            objf_obcsw(bi,bj) = objf_obcsw(bi,bj) + fctile
./pkg/ecco/cost_obcsw.F 183 COST_OBCSW 
            fcthread         = fcthread + fctile
./pkg/ecco/cost_obcsw.F 81 COST_OBCSW 
      _RL fctile
./pkg/ecco/cost_salt.F 174 COST_SALT 
            fctile = 0. _d 0
./pkg/ecco/cost_salt.F 196 COST_SALT 
                     fctile = fctile +
./pkg/ecco/cost_salt.F 215 COST_SALT 
            fcthread         = fcthread         + fctile
./pkg/ecco/cost_salt.F 216 COST_SALT 
            objf_salt(bi,bj) = objf_salt(bi,bj) + fctile
./pkg/ecco/cost_salt.F 69 COST_SALT 
      _RL fctile
./pkg/ecco/cost_salt0.F 115 COST_SALT0 
            fctile = 0. _d 0
./pkg/ecco/cost_salt0.F 124 COST_SALT0 
                  fctile = fctile
./pkg/ecco/cost_salt0.F 128 COST_SALT0 
                  fctile = fctile + tmpx*tmpx
./pkg/ecco/cost_salt0.F 137 COST_SALT0 
            objf_salt0(bi,bj) = objf_salt0(bi,bj) + fctile
./pkg/ecco/cost_salt0.F 155 COST_SALT0 
            fctile = 0. _d 0
./pkg/ecco/cost_salt0.F 171 COST_SALT0 
                  fctile = fctile
./pkg/ecco/cost_salt0.F 180 COST_SALT0 
            objf_salt0smoo(bi,bj) = objf_salt0smoo(bi,bj) + fctile
./pkg/ecco/cost_salt0.F 62 COST_SALT0 
      _RL fctile
./pkg/ecco/cost_salt_ini_fin.F 105 COST_SALT_INI_FIN 
            fctile = 0. _d 0
./pkg/ecco/cost_salt_ini_fin.F 111 COST_SALT_INI_FIN 
                  fctile = fctile
./pkg/ecco/cost_salt_ini_fin.F 120 COST_SALT_INI_FIN 
     &           objf_salt_ini_fin(bi,bj) + fctile
./pkg/ecco/cost_salt_ini_fin.F 121 COST_SALT_INI_FIN 
            fcthread          = fcthread + fctile
./pkg/ecco/cost_salt_ini_fin.F 134 COST_SALT_INI_FIN 
     &        fctile
./pkg/ecco/cost_salt_ini_fin.F 165 COST_SALT_INI_FIN 
      fctile   = 0. _d 0
./pkg/ecco/cost_salt_ini_fin.F 54 COST_SALT_INI_FIN 
      _RL fctile
./pkg/ecco/cost_sigmar.F 167 COST_SIGMAR 
            fctile = 0. _d 0
./pkg/ecco/cost_sigmar.F 189 COST_SIGMAR 
                     fctile = fctile +
./pkg/ecco/cost_sigmar.F 208 COST_SIGMAR 
            fcthread         = fcthread         + fctile
./pkg/ecco/cost_sigmar.F 209 COST_SIGMAR 
            objf_sigmaR(bi,bj) = objf_sigmaR(bi,bj) + fctile
./pkg/ecco/cost_sigmar.F 70 COST_SIGMAR 
      _RL fctile
./pkg/ecco/cost_tau_eddy.F 109 COST_TAU_EDDY 
            fctile = 0. _d 0
./pkg/ecco/cost_tau_eddy.F 116 COST_TAU_EDDY 
                  fctile = fctile
./pkg/ecco/cost_tau_eddy.F 120 COST_TAU_EDDY 
                  fctile = fctile + tmpx*tmpx
./pkg/ecco/cost_tau_eddy.F 127 COST_TAU_EDDY 
            objf_eddytau(bi,bj) = objf_eddytau(bi,bj) + fctile
./pkg/ecco/cost_tau_eddy.F 128 COST_TAU_EDDY 
            fcthread          = fcthread + fctile
./pkg/ecco/cost_tau_eddy.F 144 COST_TAU_EDDY 
            fctile = 0. _d 0
./pkg/ecco/cost_tau_eddy.F 151 COST_TAU_EDDY 
                  fctile = fctile
./pkg/ecco/cost_tau_eddy.F 155 COST_TAU_EDDY 
                  fctile = fctile + tmpx*tmpx
./pkg/ecco/cost_tau_eddy.F 162 COST_TAU_EDDY 
            objf_eddytau(bi,bj) = objf_eddytau(bi,bj) + fctile
./pkg/ecco/cost_tau_eddy.F 163 COST_TAU_EDDY 
            fcthread          = fcthread + fctile
./pkg/ecco/cost_tau_eddy.F 176 COST_TAU_EDDY 
     &        fctile
./pkg/ecco/cost_tau_eddy.F 259 COST_TAU_EDDY 
      fctile   = 0. _d 0
./pkg/ecco/cost_tau_eddy.F 56 COST_TAU_EDDY 
      _RL fctile
./pkg/ecco/cost_theta.F 174 COST_THETA 
            fctile = 0. _d 0
./pkg/ecco/cost_theta.F 196 COST_THETA 
                     fctile = fctile +
./pkg/ecco/cost_theta.F 215 COST_THETA 
            fcthread         = fcthread         + fctile
./pkg/ecco/cost_theta.F 216 COST_THETA 
            objf_temp(bi,bj) = objf_temp(bi,bj) + fctile
./pkg/ecco/cost_theta.F 70 COST_THETA 
      _RL fctile
./pkg/ecco/cost_theta0.F 115 COST_THETA0 
            fctile = 0. _d 0
./pkg/ecco/cost_theta0.F 124 COST_THETA0 
                  fctile = fctile
./pkg/ecco/cost_theta0.F 128 COST_THETA0 
                  fctile = fctile + tmpx*tmpx
./pkg/ecco/cost_theta0.F 137 COST_THETA0 
            objf_temp0(bi,bj) = objf_temp0(bi,bj) + fctile
./pkg/ecco/cost_theta0.F 155 COST_THETA0 
            fctile = 0. _d 0
./pkg/ecco/cost_theta0.F 171 COST_THETA0 
                  fctile = fctile
./pkg/ecco/cost_theta0.F 180 COST_THETA0 
            objf_temp0smoo(bi,bj) = objf_temp0smoo(bi,bj) + fctile
./pkg/ecco/cost_theta0.F 62 COST_THETA0 
      _RL fctile
./pkg/ecco/cost_theta_ini_fin.F 105 COST_THETA_INI_FIN 
            fctile = 0. _d 0
./pkg/ecco/cost_theta_ini_fin.F 111 COST_THETA_INI_FIN 
                  fctile = fctile
./pkg/ecco/cost_theta_ini_fin.F 120 COST_THETA_INI_FIN 
     &           objf_theta_ini_fin(bi,bj) + fctile
./pkg/ecco/cost_theta_ini_fin.F 121 COST_THETA_INI_FIN 
            fcthread          = fcthread + fctile
./pkg/ecco/cost_theta_ini_fin.F 134 COST_THETA_INI_FIN 
     &        fctile
./pkg/ecco/cost_theta_ini_fin.F 165 COST_THETA_INI_FIN 
      fctile   = 0. _d 0
./pkg/ecco/cost_theta_ini_fin.F 54 COST_THETA_INI_FIN 
      _RL fctile
./pkg/ecco/cost_uvel0.F 115 COST_UVEL0 
            fctile = 0. _d 0
./pkg/ecco/cost_uvel0.F 122 COST_UVEL0 
                  fctile = fctile
./pkg/ecco/cost_uvel0.F 126 COST_UVEL0 
                  fctile = fctile + tmpx*tmpx
./pkg/ecco/cost_uvel0.F 135 COST_UVEL0 
            objf_uvel0(bi,bj) = objf_uvel0(bi,bj) + fctile
./pkg/ecco/cost_uvel0.F 62 COST_UVEL0 
      _RL fctile
./pkg/ecco/cost_vvel0.F 115 COST_VVEL0 
            fctile = 0. _d 0
./pkg/ecco/cost_vvel0.F 122 COST_VVEL0 
                  fctile = fctile
./pkg/ecco/cost_vvel0.F 126 COST_VVEL0 
                  fctile = fctile + tmpx*tmpx
./pkg/ecco/cost_vvel0.F 135 COST_VVEL0 
            objf_vvel0(bi,bj) = objf_vvel0(bi,bj) + fctile
./pkg/ecco/cost_vvel0.F 62 COST_VVEL0 
      _RL fctile