Symbol Description Uses
fctile 246


File Line number Procedure Code
./pkg/ecco/cost_atemp.F 113 COST_ATEMP 
            fctile = 0. _d 0
./pkg/ecco/cost_atemp.F 118 COST_ATEMP 
                  fctile = fctile
./pkg/ecco/cost_atemp.F 127 COST_ATEMP 
            objf_atemp(bi,bj) = objf_atemp(bi,bj) + fctile
./pkg/ecco/cost_atemp.F 128 COST_ATEMP 
            fcthread         = fcthread + fctile
./pkg/ecco/cost_atemp.F 141 COST_ATEMP 
     &        fctile
./pkg/ecco/cost_atemp.F 173 COST_ATEMP 
      fctile   = 0. _d 0
./pkg/ecco/cost_atemp.F 56 COST_ATEMP 
      _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_heatflux.F 204 COST_HEATFLUX 
            fctile = 0. _d 0
./pkg/ecco/cost_heatflux.F 211 COST_HEATFLUX 
                  fctile = fctile
./pkg/ecco/cost_heatflux.F 220 COST_HEATFLUX 
            objf_hflux(bi,bj) = objf_hflux(bi,bj) + fctile
./pkg/ecco/cost_heatflux.F 221 COST_HEATFLUX 
            fcthread         = fcthread + fctile
./pkg/ecco/cost_heatflux.F 234 COST_HEATFLUX 
     &        fctile
./pkg/ecco/cost_heatflux.F 266 COST_HEATFLUX 
      fctile   = 0. _d 0
./pkg/ecco/cost_heatflux.F 64 COST_HEATFLUX 
      _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 132 COST_SALT0 
            fcthread          = fcthread + fctile
./pkg/ecco/cost_salt0.F 145 COST_SALT0 
     &        fctile
./pkg/ecco/cost_salt0.F 176 COST_SALT0 
      fctile   = 0. _d 0
./pkg/ecco/cost_salt0.F 60 COST_SALT0 
      _RL fctile
./pkg/ecco/cost_salt.F 171 COST_SALT 
            fctile = 0. _d 0
./pkg/ecco/cost_salt.F 205 COST_SALT 
                     fctile = fctile +
./pkg/ecco/cost_salt.F 218 COST_SALT 
            fcthread         = fcthread         + fctile
./pkg/ecco/cost_salt.F 219 COST_SALT 
            objf_salt(bi,bj) = objf_salt(bi,bj) + fctile
./pkg/ecco/cost_salt.F 232 COST_SALT 
     &        fctile
./pkg/ecco/cost_salt.F 67 COST_SALT 
      _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_uwind.F 113 COST_UWIND 
            fctile = 0. _d 0
./pkg/ecco/cost_uwind.F 118 COST_UWIND 
                  fctile = fctile
./pkg/ecco/cost_uwind.F 127 COST_UWIND 
            objf_uwind(bi,bj) = objf_uwind(bi,bj) + fctile
./pkg/ecco/cost_uwind.F 128 COST_UWIND 
            fcthread         = fcthread + fctile
./pkg/ecco/cost_uwind.F 141 COST_UWIND 
     &        fctile
./pkg/ecco/cost_uwind.F 173 COST_UWIND 
      fctile   = 0. _d 0
./pkg/ecco/cost_uwind.F 56 COST_UWIND 
      _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_zonstress.F 204 COST_ZONSTRESS 
            fctile = 0. _d 0
./pkg/ecco/cost_zonstress.F 211 COST_ZONSTRESS 
                  fctile = fctile
./pkg/ecco/cost_zonstress.F 220 COST_ZONSTRESS 
            objf_tauu(bi,bj) = objf_tauu(bi,bj) + fctile
./pkg/ecco/cost_zonstress.F 221 COST_ZONSTRESS 
            fcthread         = fcthread + fctile
./pkg/ecco/cost_zonstress.F 234 COST_ZONSTRESS 
     &        fctile
./pkg/ecco/cost_zonstress.F 266 COST_ZONSTRESS 
      fctile   = 0. _d 0
./pkg/ecco/cost_zonstress.F 64 COST_ZONSTRESS 
      _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 132 COST_THETA0 
            fcthread          = fcthread + fctile
./pkg/ecco/cost_theta0.F 145 COST_THETA0 
     &        fctile
./pkg/ecco/cost_theta0.F 176 COST_THETA0 
      fctile   = 0. _d 0
./pkg/ecco/cost_theta0.F 60 COST_THETA0 
      _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_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_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_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_saltflux.F 204 COST_SALTFLUX 
            fctile = 0. _d 0
./pkg/ecco/cost_saltflux.F 211 COST_SALTFLUX 
                  fctile = fctile
./pkg/ecco/cost_saltflux.F 220 COST_SALTFLUX 
            objf_sflux(bi,bj) = objf_sflux(bi,bj) + fctile
./pkg/ecco/cost_saltflux.F 221 COST_SALTFLUX 
            fcthread          = fcthread + fctile
./pkg/ecco/cost_saltflux.F 234 COST_SALTFLUX 
     &        fctile
./pkg/ecco/cost_saltflux.F 266 COST_SALTFLUX 
      fctile   = 0. _d 0
./pkg/ecco/cost_saltflux.F 64 COST_SALTFLUX 
      _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_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_theta.F 170 COST_THETA 
            fctile = 0. _d 0
./pkg/ecco/cost_theta.F 203 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 230 COST_THETA 
     &        fctile
./pkg/ecco/cost_theta.F 67 COST_THETA 
      _RL fctile
./pkg/ecco/cost_aqh.F 113 COST_AQH 
            fctile = 0. _d 0
./pkg/ecco/cost_aqh.F 118 COST_AQH 
                  fctile = fctile
./pkg/ecco/cost_aqh.F 127 COST_AQH 
            objf_aqh(bi,bj) = objf_aqh(bi,bj) + fctile
./pkg/ecco/cost_aqh.F 128 COST_AQH 
            fcthread         = fcthread + fctile
./pkg/ecco/cost_aqh.F 141 COST_AQH 
     &        fctile
./pkg/ecco/cost_aqh.F 173 COST_AQH 
      fctile   = 0. _d 0
./pkg/ecco/cost_aqh.F 56 COST_AQH 
      _RL fctile
./pkg/ecco/cost_merstress.F 206 COST_MERSTRESS 
            fctile = 0. _d 0
./pkg/ecco/cost_merstress.F 213 COST_MERSTRESS 
                  fctile = fctile
./pkg/ecco/cost_merstress.F 222 COST_MERSTRESS 
            objf_tauv(bi,bj) = objf_tauv(bi,bj) + fctile
./pkg/ecco/cost_merstress.F 223 COST_MERSTRESS 
            fcthread         = fcthread + fctile
./pkg/ecco/cost_merstress.F 236 COST_MERSTRESS 
     &        fctile
./pkg/ecco/cost_merstress.F 268 COST_MERSTRESS 
      fctile   = 0. _d 0
./pkg/ecco/cost_merstress.F 64 COST_MERSTRESS 
      _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
./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_vwind.F 113 COST_VWIND 
            fctile = 0. _d 0
./pkg/ecco/cost_vwind.F 118 COST_VWIND 
                  fctile = fctile
./pkg/ecco/cost_vwind.F 127 COST_VWIND 
            objf_vwind(bi,bj) = objf_vwind(bi,bj) + fctile
./pkg/ecco/cost_vwind.F 128 COST_VWIND 
            fcthread         = fcthread + fctile
./pkg/ecco/cost_vwind.F 141 COST_VWIND 
     &        fctile
./pkg/ecco/cost_vwind.F 173 COST_VWIND 
      fctile   = 0. _d 0
./pkg/ecco/cost_vwind.F 56 COST_VWIND 
      _RL fctile