Symbol Description Uses
fctile 191


File Line number Procedure Code
./pkg/ecco/cost_theta.F 171 COST_THETA 
            fctile = 0. _d 0
./pkg/ecco/cost_theta.F 193 COST_THETA 
                     fctile = fctile +
./pkg/ecco/cost_theta.F 216 COST_THETA 
            fcthread         = fcthread         + fctile
./pkg/ecco/cost_theta.F 217 COST_THETA 
            objf_temp(bi,bj) = objf_temp(bi,bj) + fctile
./pkg/ecco/cost_theta.F 64 COST_THETA 
      _RL fctile
./pkg/ecco/cost_obcsn.F 122 COST_OBCSN 
            fctile = 0. _d 0
./pkg/ecco/cost_obcsn.F 129 COST_OBCSN 
                     fctile = fctile +
./pkg/ecco/cost_obcsn.F 137 COST_OBCSN 
            fcthread         = fcthread           + fctile
./pkg/ecco/cost_obcsn.F 138 COST_OBCSN 
            objf_obcsn(bi,bj) = objf_obcsn(bi,bj) + fctile
./pkg/ecco/cost_obcsn.F 159 COST_OBCSN 
            fctile = 0. _d 0
./pkg/ecco/cost_obcsn.F 166 COST_OBCSN 
                     fctile = fctile +
./pkg/ecco/cost_obcsn.F 174 COST_OBCSN 
            fcthread         = fcthread           + fctile
./pkg/ecco/cost_obcsn.F 175 COST_OBCSN 
            objf_obcsn(bi,bj) = objf_obcsn(bi,bj) + fctile
./pkg/ecco/cost_obcsn.F 195 COST_OBCSN 
            fctile = 0. _d 0
./pkg/ecco/cost_obcsn.F 202 COST_OBCSN 
                     fctile = fctile +
./pkg/ecco/cost_obcsn.F 210 COST_OBCSN 
            fcthread         = fcthread           + fctile
./pkg/ecco/cost_obcsn.F 211 COST_OBCSN 
            objf_obcsn(bi,bj) = objf_obcsn(bi,bj) + fctile
./pkg/ecco/cost_obcsn.F 232 COST_OBCSN 
            fctile = 0. _d 0
./pkg/ecco/cost_obcsn.F 239 COST_OBCSN 
                     fctile = fctile +
./pkg/ecco/cost_obcsn.F 247 COST_OBCSN 
            fcthread         = fcthread           + fctile
./pkg/ecco/cost_obcsn.F 248 COST_OBCSN 
            objf_obcsn(bi,bj) = objf_obcsn(bi,bj) + fctile
./pkg/ecco/cost_obcsn.F 61 COST_OBCSN 
      _RL fctile
./pkg/ecco/cost_obcsvol.F 200 COST_OBCSVOL 
              fctile = 0. _d 0
./pkg/ecco/cost_obcsvol.F 209 COST_OBCSVOL 
                    fctile = fctile - tmpx* delZ(k) *dxg(i,j+jp1,bi,bj)
./pkg/ecco/cost_obcsvol.F 214 COST_OBCSVOL 
              sumvol         = sumvol + fctile
./pkg/ecco/cost_obcsvol.F 242 COST_OBCSVOL 
              fctile = 0. _d 0
./pkg/ecco/cost_obcsvol.F 251 COST_OBCSVOL 
                    fctile = fctile + tmpx* delZ(k) *dxg(i,j+jp1,bi,bj)
./pkg/ecco/cost_obcsvol.F 256 COST_OBCSVOL 
              sumvol         = sumvol + fctile
./pkg/ecco/cost_obcsvol.F 285 COST_OBCSVOL 
              fctile = 0. _d 0
./pkg/ecco/cost_obcsvol.F 294 COST_OBCSVOL 
                    fctile = fctile + tmpy* delZ(k) *dyg(i+ip1,j,bi,bj)
./pkg/ecco/cost_obcsvol.F 299 COST_OBCSVOL 
              sumvol         = sumvol + fctile
./pkg/ecco/cost_obcsvol.F 328 COST_OBCSVOL 
              fctile = 0. _d 0
./pkg/ecco/cost_obcsvol.F 337 COST_OBCSVOL 
                    fctile = fctile - tmpy* delZ(k) *dyg(i+ip1,j,bi,bj)
./pkg/ecco/cost_obcsvol.F 342 COST_OBCSVOL 
              sumvol         = sumvol + fctile
./pkg/ecco/cost_obcsvol.F 69 COST_OBCSVOL 
      _RL fctile
./pkg/ecco/cost_forcing_gen.F 210 COST_FORCING_GEN 
            fctile = 0. _d 0
./pkg/ecco/cost_forcing_gen.F 219 COST_FORCING_GEN 
                  fctile = fctile
./pkg/ecco/cost_forcing_gen.F 229 COST_FORCING_GEN 
            objf_gen_anom(bi,bj) = objf_gen_anom(bi,bj) + fctile
./pkg/ecco/cost_forcing_gen.F 254 COST_FORCING_GEN 
            fctile = 0. _d 0
./pkg/ecco/cost_forcing_gen.F 269 COST_FORCING_GEN 
                  fctile = fctile
./pkg/ecco/cost_forcing_gen.F 280 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_salt0.F 113 COST_SALT0 
            fctile = 0. _d 0
./pkg/ecco/cost_salt0.F 121 COST_SALT0 
		  fctile = fctile
./pkg/ecco/cost_salt0.F 131 COST_SALT0 
            objf_salt0(bi,bj) = objf_salt0(bi,bj) + fctile
./pkg/ecco/cost_salt0.F 148 COST_SALT0 
            fctile = 0. _d 0
./pkg/ecco/cost_salt0.F 164 COST_SALT0 
                  fctile = fctile
./pkg/ecco/cost_salt0.F 173 COST_SALT0 
            objf_salt0smoo(bi,bj) = objf_salt0smoo(bi,bj) + fctile
./pkg/ecco/cost_salt0.F 60 COST_SALT0 
      _RL fctile
./pkg/ecco/cost_kapgm.F 117 COST_KAPGM 
            fctile = 0. _d 0
./pkg/ecco/cost_kapgm.F 123 COST_KAPGM 
                  fctile = fctile
./pkg/ecco/cost_kapgm.F 131 COST_KAPGM 
            objf_kapgm(bi,bj) = objf_kapgm(bi,bj) + fctile
./pkg/ecco/cost_kapgm.F 132 COST_KAPGM 
            fcthread          = fcthread + fctile
./pkg/ecco/cost_kapgm.F 145 COST_KAPGM 
     &        fctile
./pkg/ecco/cost_kapgm.F 176 COST_KAPGM 
      fctile   = 0. _d 0
./pkg/ecco/cost_kapgm.F 64 COST_KAPGM 
      _RL fctile
./pkg/ecco/cost_ctdtclim.F 171 COST_CTDTCLIM 
            fctile = 0. _d 0
./pkg/ecco/cost_ctdtclim.F 205 COST_CTDTCLIM 
                     fctile = fctile +
./pkg/ecco/cost_ctdtclim.F 217 COST_CTDTCLIM 
            fcthread         = fcthread         + fctile
./pkg/ecco/cost_ctdtclim.F 218 COST_CTDTCLIM 
            objf_ctdtclim(bi,bj) = objf_ctdtclim(bi,bj) + fctile
./pkg/ecco/cost_ctdtclim.F 231 COST_CTDTCLIM 
     &        fctile
./pkg/ecco/cost_ctdtclim.F 70 COST_CTDTCLIM 
      _RL fctile
./pkg/ecco/cost_obcsw.F 122 COST_OBCSW 
            fctile = 0. _d 0
./pkg/ecco/cost_obcsw.F 129 COST_OBCSW 
                     fctile = fctile +
./pkg/ecco/cost_obcsw.F 137 COST_OBCSW 
            fcthread         = fcthread           + fctile
./pkg/ecco/cost_obcsw.F 138 COST_OBCSW 
            objf_obcsw(bi,bj) = objf_obcsw(bi,bj) + fctile
./pkg/ecco/cost_obcsw.F 159 COST_OBCSW 
            fctile = 0. _d 0
./pkg/ecco/cost_obcsw.F 166 COST_OBCSW 
                     fctile = fctile +
./pkg/ecco/cost_obcsw.F 174 COST_OBCSW 
            fcthread         = fcthread           + fctile
./pkg/ecco/cost_obcsw.F 175 COST_OBCSW 
            objf_obcsw(bi,bj) = objf_obcsw(bi,bj) + fctile
./pkg/ecco/cost_obcsw.F 195 COST_OBCSW 
            fctile = 0. _d 0
./pkg/ecco/cost_obcsw.F 202 COST_OBCSW 
                     fctile = fctile +
./pkg/ecco/cost_obcsw.F 210 COST_OBCSW 
            fcthread         = fcthread           + fctile
./pkg/ecco/cost_obcsw.F 211 COST_OBCSW 
            objf_obcsw(bi,bj) = objf_obcsw(bi,bj) + fctile
./pkg/ecco/cost_obcsw.F 232 COST_OBCSW 
            fctile = 0. _d 0
./pkg/ecco/cost_obcsw.F 239 COST_OBCSW 
                     fctile = fctile +
./pkg/ecco/cost_obcsw.F 247 COST_OBCSW 
            fcthread         = fcthread           + fctile
./pkg/ecco/cost_obcsw.F 248 COST_OBCSW 
            objf_obcsw(bi,bj) = objf_obcsw(bi,bj) + fctile
./pkg/ecco/cost_obcsw.F 61 COST_OBCSW 
      _RL fctile
./pkg/ecco/cost_theta0.F 113 COST_THETA0 
            fctile = 0. _d 0
./pkg/ecco/cost_theta0.F 121 COST_THETA0 
                  fctile = fctile
./pkg/ecco/cost_theta0.F 131 COST_THETA0 
            objf_temp0(bi,bj) = objf_temp0(bi,bj) + fctile
./pkg/ecco/cost_theta0.F 148 COST_THETA0 
            fctile = 0. _d 0
./pkg/ecco/cost_theta0.F 164 COST_THETA0 
                  fctile = fctile
./pkg/ecco/cost_theta0.F 173 COST_THETA0 
            objf_temp0smoo(bi,bj) = objf_temp0smoo(bi,bj) + fctile
./pkg/ecco/cost_theta0.F 60 COST_THETA0 
      _RL fctile
./pkg/ecco/cost_ctdsclim.F 172 COST_CTDSCLIM 
            fctile = 0. _d 0
./pkg/ecco/cost_ctdsclim.F 206 COST_CTDSCLIM 
                     fctile = fctile +
./pkg/ecco/cost_ctdsclim.F 218 COST_CTDSCLIM 
            fcthread         = fcthread         + fctile
./pkg/ecco/cost_ctdsclim.F 219 COST_CTDSCLIM 
            objf_ctdsclim(bi,bj) = objf_ctdsclim(bi,bj) + fctile
./pkg/ecco/cost_ctdsclim.F 232 COST_CTDSCLIM 
     &        fctile
./pkg/ecco/cost_ctdsclim.F 70 COST_CTDSCLIM 
      _RL fctile
./pkg/ecco/cost_obcse.F 122 COST_OBCSE 
            fctile = 0. _d 0
./pkg/ecco/cost_obcse.F 129 COST_OBCSE 
                     fctile = fctile +
./pkg/ecco/cost_obcse.F 137 COST_OBCSE 
            fcthread         = fcthread           + fctile
./pkg/ecco/cost_obcse.F 138 COST_OBCSE 
            objf_obcse(bi,bj) = objf_obcse(bi,bj) + fctile
./pkg/ecco/cost_obcse.F 159 COST_OBCSE 
            fctile = 0. _d 0
./pkg/ecco/cost_obcse.F 166 COST_OBCSE 
                     fctile = fctile +
./pkg/ecco/cost_obcse.F 174 COST_OBCSE 
            fcthread         = fcthread           + fctile
./pkg/ecco/cost_obcse.F 175 COST_OBCSE 
            objf_obcse(bi,bj) = objf_obcse(bi,bj) + fctile
./pkg/ecco/cost_obcse.F 195 COST_OBCSE 
            fctile = 0. _d 0
./pkg/ecco/cost_obcse.F 202 COST_OBCSE 
                     fctile = fctile +
./pkg/ecco/cost_obcse.F 210 COST_OBCSE 
            fcthread         = fcthread           + fctile
./pkg/ecco/cost_obcse.F 211 COST_OBCSE 
            objf_obcse(bi,bj) = objf_obcse(bi,bj) + fctile
./pkg/ecco/cost_obcse.F 232 COST_OBCSE 
            fctile = 0. _d 0
./pkg/ecco/cost_obcse.F 239 COST_OBCSE 
                     fctile = fctile +
./pkg/ecco/cost_obcse.F 247 COST_OBCSE 
            fcthread         = fcthread           + fctile
./pkg/ecco/cost_obcse.F 248 COST_OBCSE 
            objf_obcse(bi,bj) = objf_obcse(bi,bj) + fctile
./pkg/ecco/cost_obcse.F 61 COST_OBCSE 
      _RL fctile
./pkg/ecco/cost_obcss.F 122 COST_OBCSS 
            fctile = 0. _d 0
./pkg/ecco/cost_obcss.F 129 COST_OBCSS 
                     fctile = fctile +
./pkg/ecco/cost_obcss.F 137 COST_OBCSS 
            fcthread         = fcthread           + fctile
./pkg/ecco/cost_obcss.F 138 COST_OBCSS 
            objf_obcss(bi,bj) = objf_obcss(bi,bj) + fctile
./pkg/ecco/cost_obcss.F 159 COST_OBCSS 
            fctile = 0. _d 0
./pkg/ecco/cost_obcss.F 166 COST_OBCSS 
                     fctile = fctile +
./pkg/ecco/cost_obcss.F 174 COST_OBCSS 
            fcthread         = fcthread           + fctile
./pkg/ecco/cost_obcss.F 175 COST_OBCSS 
            objf_obcss(bi,bj) = objf_obcss(bi,bj) + fctile
./pkg/ecco/cost_obcss.F 195 COST_OBCSS 
            fctile = 0. _d 0
./pkg/ecco/cost_obcss.F 202 COST_OBCSS 
                     fctile = fctile +
./pkg/ecco/cost_obcss.F 210 COST_OBCSS 
            fcthread         = fcthread           + fctile
./pkg/ecco/cost_obcss.F 211 COST_OBCSS 
            objf_obcss(bi,bj) = objf_obcss(bi,bj) + fctile
./pkg/ecco/cost_obcss.F 232 COST_OBCSS 
            fctile = 0. _d 0
./pkg/ecco/cost_obcss.F 239 COST_OBCSS 
                     fctile = fctile +
./pkg/ecco/cost_obcss.F 247 COST_OBCSS 
            fcthread         = fcthread           + fctile
./pkg/ecco/cost_obcss.F 248 COST_OBCSS 
            objf_obcss(bi,bj) = objf_obcss(bi,bj) + fctile
./pkg/ecco/cost_obcss.F 61 COST_OBCSS 
      _RL fctile
./pkg/ecco/cost_salt.F 172 COST_SALT 
            fctile = 0. _d 0
./pkg/ecco/cost_salt.F 194 COST_SALT 
                     fctile = fctile +
./pkg/ecco/cost_salt.F 217 COST_SALT 
            fcthread         = fcthread         + fctile
./pkg/ecco/cost_salt.F 218 COST_SALT 
            objf_salt(bi,bj) = objf_salt(bi,bj) + fctile
./pkg/ecco/cost_salt.F 64 COST_SALT 
      _RL fctile
./pkg/ecco/cost_theta_ini_fin.F 103 COST_THETA_INI_FIN 
            fctile = 0. _d 0
./pkg/ecco/cost_theta_ini_fin.F 109 COST_THETA_INI_FIN 
                  fctile = fctile
./pkg/ecco/cost_theta_ini_fin.F 118 COST_THETA_INI_FIN 
     &           objf_theta_ini_fin(bi,bj) + fctile
./pkg/ecco/cost_theta_ini_fin.F 119 COST_THETA_INI_FIN 
            fcthread          = fcthread + fctile
./pkg/ecco/cost_theta_ini_fin.F 132 COST_THETA_INI_FIN 
     &        fctile
./pkg/ecco/cost_theta_ini_fin.F 163 COST_THETA_INI_FIN 
      fctile   = 0. _d 0
./pkg/ecco/cost_theta_ini_fin.F 52 COST_THETA_INI_FIN 
      _RL fctile
./pkg/ecco/cost_obcs_ageos.F 147 COST_OBCS_AGEOS 
      fctile   = 0. _d 0
./pkg/ecco/cost_obcs_ageos.F 261 COST_OBCS_AGEOS 
                  fctile = fctile + 100*wcurrent(k,bi,bj) *
./pkg/ecco/cost_obcs_ageos.F 323 COST_OBCS_AGEOS 
                  fctile = fctile + 100*wcurrent(k,bi,bj) *
./pkg/ecco/cost_obcs_ageos.F 383 COST_OBCS_AGEOS 
                fctile = fctile + 100*wcurrent(k,bi,bj) *
./pkg/ecco/cost_obcs_ageos.F 442 COST_OBCS_AGEOS 
                fctile = fctile + 100*wcurrent(k,bi,bj) *
./pkg/ecco/cost_obcs_ageos.F 452 COST_OBCS_AGEOS 
            fcthread          = fcthread          + fctile
./pkg/ecco/cost_obcs_ageos.F 453 COST_OBCS_AGEOS 
            objf_ageos(bi,bj) = objf_ageos(bi,bj) + fctile
./pkg/ecco/cost_obcs_ageos.F 466 COST_OBCS_AGEOS 
     &        fctile
./pkg/ecco/cost_obcs_ageos.F 70 COST_OBCS_AGEOS 
      _RL fctile
./pkg/ecco/cost_salt_ini_fin.F 103 COST_SALT_INI_FIN 
            fctile = 0. _d 0
./pkg/ecco/cost_salt_ini_fin.F 109 COST_SALT_INI_FIN 
                  fctile = fctile
./pkg/ecco/cost_salt_ini_fin.F 118 COST_SALT_INI_FIN 
     &           objf_salt_ini_fin(bi,bj) + fctile
./pkg/ecco/cost_salt_ini_fin.F 119 COST_SALT_INI_FIN 
            fcthread          = fcthread + fctile
./pkg/ecco/cost_salt_ini_fin.F 132 COST_SALT_INI_FIN 
     &        fctile
./pkg/ecco/cost_salt_ini_fin.F 163 COST_SALT_INI_FIN 
      fctile   = 0. _d 0
./pkg/ecco/cost_salt_ini_fin.F 52 COST_SALT_INI_FIN 
      _RL fctile