Symbol Description Uses
fcthread 181


File Line number Procedure Code
./pkg/ecco/cost_atemp.F 128 COST_ATEMP 
            fcthread         = fcthread + fctile
./pkg/ecco/cost_atemp.F 150 COST_ATEMP 
        _GLOBAL_SUM_R8( fcthread , myThid )
./pkg/ecco/cost_atemp.F 160 COST_ATEMP 
     &    fcthread
./pkg/ecco/cost_atemp.F 174 COST_ATEMP 
      fcthread = 0. _d 0
./pkg/ecco/cost_atemp.F 57 COST_ATEMP 
      _RL fcthread
./pkg/ecco/cost_atemp.F 98 COST_ATEMP 
      fcthread = 0. _d 0
./pkg/ecco/cost_obcs_ageos.F 146 COST_OBCS_AGEOS 
      fcthread = 0. _d 0
./pkg/ecco/cost_obcs_ageos.F 452 COST_OBCS_AGEOS 
            fcthread          = fcthread          + fctile
./pkg/ecco/cost_obcs_ageos.F 479 COST_OBCS_AGEOS 
        _GLOBAL_SUM_R8( fcthread , myThid )
./pkg/ecco/cost_obcs_ageos.F 489 COST_OBCS_AGEOS 
     &    ' (temperature) = ',fcthread
./pkg/ecco/cost_obcs_ageos.F 71 COST_OBCS_AGEOS 
      _RL fcthread
./pkg/ecco/cost_heatflux.F 111 COST_HEATFLUX 
      fcthread = 0. _d 0
./pkg/ecco/cost_heatflux.F 168 COST_HEATFLUX 
        fcthread           = fcthread + fctilem
./pkg/ecco/cost_heatflux.F 189 COST_HEATFLUX 
      fcthread = 0. _d 0
./pkg/ecco/cost_heatflux.F 221 COST_HEATFLUX 
            fcthread         = fcthread + fctile
./pkg/ecco/cost_heatflux.F 243 COST_HEATFLUX 
        _GLOBAL_SUM_R8( fcthread , myThid )
./pkg/ecco/cost_heatflux.F 253 COST_HEATFLUX 
     &    fcthread
./pkg/ecco/cost_heatflux.F 267 COST_HEATFLUX 
      fcthread = 0. _d 0
./pkg/ecco/cost_heatflux.F 67 COST_HEATFLUX 
      _RL fcthread
./pkg/ecco/cost_salt0.F 101 COST_SALT0 
      fcthread = 0. _d 0
./pkg/ecco/cost_salt0.F 132 COST_SALT0 
            fcthread          = fcthread + fctile
./pkg/ecco/cost_salt0.F 154 COST_SALT0 
        _GLOBAL_SUM_R8( fcthread , myThid )
./pkg/ecco/cost_salt0.F 164 COST_SALT0 
     &    fcthread
./pkg/ecco/cost_salt0.F 177 COST_SALT0 
      fcthread = 0. _d 0
./pkg/ecco/cost_salt0.F 61 COST_SALT0 
      _RL fcthread
./pkg/ecco/cost_salt.F 115 COST_SALT 
      fcthread = 0. _d 0
./pkg/ecco/cost_salt.F 218 COST_SALT 
            fcthread         = fcthread         + fctile
./pkg/ecco/cost_salt.F 245 COST_SALT 
        _GLOBAL_SUM_R8( fcthread , myThid )
./pkg/ecco/cost_salt.F 255 COST_SALT 
     &    ' (salinity) = ',fcthread
./pkg/ecco/cost_salt.F 68 COST_SALT 
      _RL fcthread
./pkg/ecco/cost_obcsn.F 100 COST_OBCSN 
      fcthread = 0. _d 0
./pkg/ecco/cost_obcsn.F 137 COST_OBCSN 
            fcthread         = fcthread           + fctile
./pkg/ecco/cost_obcsn.F 174 COST_OBCSN 
            fcthread         = fcthread           + fctile
./pkg/ecco/cost_obcsn.F 210 COST_OBCSN 
            fcthread         = fcthread           + fctile
./pkg/ecco/cost_obcsn.F 247 COST_OBCSN 
            fcthread         = fcthread           + fctile
./pkg/ecco/cost_obcsn.F 254 COST_OBCSN 
        _GLOBAL_SUM_R8( fcthread , myThid )
./pkg/ecco/cost_obcsn.F 264 COST_OBCSN 
     &    ' (obcsn) = ',fcthread
./pkg/ecco/cost_obcsn.F 62 COST_OBCSN 
      _RL fcthread
./pkg/ecco/cost_uwind.F 128 COST_UWIND 
            fcthread         = fcthread + fctile
./pkg/ecco/cost_uwind.F 150 COST_UWIND 
        _GLOBAL_SUM_R8( fcthread , myThid )
./pkg/ecco/cost_uwind.F 160 COST_UWIND 
     &    fcthread
./pkg/ecco/cost_uwind.F 174 COST_UWIND 
      fcthread = 0. _d 0
./pkg/ecco/cost_uwind.F 57 COST_UWIND 
      _RL fcthread
./pkg/ecco/cost_uwind.F 98 COST_UWIND 
      fcthread = 0. _d 0
./pkg/ecco/cost_kapgm.F 105 COST_KAPGM 
      fcthread = 0. _d 0
./pkg/ecco/cost_kapgm.F 132 COST_KAPGM 
            fcthread          = fcthread + fctile
./pkg/ecco/cost_kapgm.F 154 COST_KAPGM 
        _GLOBAL_SUM_R8( fcthread , myThid )
./pkg/ecco/cost_kapgm.F 164 COST_KAPGM 
     &    fcthread
./pkg/ecco/cost_kapgm.F 177 COST_KAPGM 
      fcthread = 0. _d 0
./pkg/ecco/cost_kapgm.F 65 COST_KAPGM 
      _RL fcthread
./pkg/ecco/cost_zonstress.F 111 COST_ZONSTRESS 
      fcthread = 0. _d 0
./pkg/ecco/cost_zonstress.F 168 COST_ZONSTRESS 
          fcthread          = fcthread + fctilem
./pkg/ecco/cost_zonstress.F 189 COST_ZONSTRESS 
      fcthread = 0. _d 0
./pkg/ecco/cost_zonstress.F 221 COST_ZONSTRESS 
            fcthread         = fcthread + fctile
./pkg/ecco/cost_zonstress.F 243 COST_ZONSTRESS 
        _GLOBAL_SUM_R8( fcthread , myThid )
./pkg/ecco/cost_zonstress.F 253 COST_ZONSTRESS 
     &    fcthread
./pkg/ecco/cost_zonstress.F 267 COST_ZONSTRESS 
      fcthread = 0. _d 0
./pkg/ecco/cost_zonstress.F 67 COST_ZONSTRESS 
      _RL fcthread
./pkg/ecco/cost_theta0.F 101 COST_THETA0 
      fcthread = 0. _d 0
./pkg/ecco/cost_theta0.F 132 COST_THETA0 
            fcthread          = fcthread + fctile
./pkg/ecco/cost_theta0.F 154 COST_THETA0 
        _GLOBAL_SUM_R8( fcthread , myThid )
./pkg/ecco/cost_theta0.F 164 COST_THETA0 
     &    fcthread
./pkg/ecco/cost_theta0.F 177 COST_THETA0 
      fcthread = 0. _d 0
./pkg/ecco/cost_theta0.F 61 COST_THETA0 
      _RL fcthread
./pkg/ecco/cost_ctdtclim.F 115 COST_CTDTCLIM 
      fcthread = 0. _d 0
./pkg/ecco/cost_ctdtclim.F 217 COST_CTDTCLIM 
            fcthread         = fcthread         + fctile
./pkg/ecco/cost_ctdtclim.F 244 COST_CTDTCLIM 
        _GLOBAL_SUM_R8( fcthread , myThid )
./pkg/ecco/cost_ctdtclim.F 254 COST_CTDTCLIM 
     &    ' (temperature) = ',fcthread
./pkg/ecco/cost_ctdtclim.F 71 COST_CTDTCLIM 
      _RL fcthread
./pkg/ecco/cost_ctdsclim.F 116 COST_CTDSCLIM 
      fcthread = 0. _d 0
./pkg/ecco/cost_ctdsclim.F 218 COST_CTDSCLIM 
            fcthread         = fcthread         + fctile
./pkg/ecco/cost_ctdsclim.F 245 COST_CTDSCLIM 
        _GLOBAL_SUM_R8( fcthread , myThid )
./pkg/ecco/cost_ctdsclim.F 255 COST_CTDSCLIM 
     &    ' (salinity) = ',fcthread
./pkg/ecco/cost_ctdsclim.F 71 COST_CTDSCLIM 
      _RL fcthread
./pkg/ecco/cost_theta_ini_fin.F 119 COST_THETA_INI_FIN 
            fcthread          = fcthread + fctile
./pkg/ecco/cost_theta_ini_fin.F 141 COST_THETA_INI_FIN 
        _GLOBAL_SUM_R8( fcthread , myThid )
./pkg/ecco/cost_theta_ini_fin.F 151 COST_THETA_INI_FIN 
     &    fcthread
./pkg/ecco/cost_theta_ini_fin.F 164 COST_THETA_INI_FIN 
      fcthread = 0. _d 0
./pkg/ecco/cost_theta_ini_fin.F 53 COST_THETA_INI_FIN 
      _RL fcthread
./pkg/ecco/cost_theta_ini_fin.F 91 COST_THETA_INI_FIN 
      fcthread = 0. _d 0
./pkg/ecco/cost_saltflux.F 111 COST_SALTFLUX 
      fcthread = 0. _d 0
./pkg/ecco/cost_saltflux.F 168 COST_SALTFLUX 
          fcthread           = fcthread + fctilem
./pkg/ecco/cost_saltflux.F 189 COST_SALTFLUX 
      fcthread = 0. _d 0
./pkg/ecco/cost_saltflux.F 221 COST_SALTFLUX 
            fcthread          = fcthread + fctile
./pkg/ecco/cost_saltflux.F 243 COST_SALTFLUX 
        _GLOBAL_SUM_R8( fcthread , myThid )
./pkg/ecco/cost_saltflux.F 253 COST_SALTFLUX 
     &    fcthread
./pkg/ecco/cost_saltflux.F 267 COST_SALTFLUX 
      fcthread = 0. _d 0
./pkg/ecco/cost_saltflux.F 67 COST_SALTFLUX 
      _RL fcthread
./pkg/ecco/cost_obcss.F 100 COST_OBCSS 
      fcthread = 0. _d 0
./pkg/ecco/cost_obcss.F 137 COST_OBCSS 
            fcthread         = fcthread           + fctile
./pkg/ecco/cost_obcss.F 174 COST_OBCSS 
            fcthread         = fcthread           + fctile
./pkg/ecco/cost_obcss.F 210 COST_OBCSS 
            fcthread         = fcthread           + fctile
./pkg/ecco/cost_obcss.F 247 COST_OBCSS 
            fcthread         = fcthread           + fctile
./pkg/ecco/cost_obcss.F 254 COST_OBCSS 
        _GLOBAL_SUM_R8( fcthread , myThid )
./pkg/ecco/cost_obcss.F 264 COST_OBCSS 
     &    ' (obcss) = ',fcthread
./pkg/ecco/cost_obcss.F 62 COST_OBCSS 
      _RL fcthread
./pkg/ecco/cost_obcsw.F 100 COST_OBCSW 
      fcthread = 0. _d 0
./pkg/ecco/cost_obcsw.F 137 COST_OBCSW 
            fcthread         = fcthread           + fctile
./pkg/ecco/cost_obcsw.F 174 COST_OBCSW 
            fcthread         = fcthread           + fctile
./pkg/ecco/cost_obcsw.F 210 COST_OBCSW 
            fcthread         = fcthread           + fctile
./pkg/ecco/cost_obcsw.F 247 COST_OBCSW 
            fcthread         = fcthread           + fctile
./pkg/ecco/cost_obcsw.F 254 COST_OBCSW 
        _GLOBAL_SUM_R8( fcthread , myThid )
./pkg/ecco/cost_obcsw.F 264 COST_OBCSW 
     &    ' (obcsw) = ',fcthread
./pkg/ecco/cost_obcsw.F 62 COST_OBCSW 
      _RL fcthread
./pkg/ecco/cost_theta.F 114 COST_THETA 
      fcthread = 0. _d 0
./pkg/ecco/cost_theta.F 216 COST_THETA 
            fcthread         = fcthread         + fctile
./pkg/ecco/cost_theta.F 243 COST_THETA 
        _GLOBAL_SUM_R8( fcthread , myThid )
./pkg/ecco/cost_theta.F 253 COST_THETA 
     &    ' (temperature) = ',fcthread
./pkg/ecco/cost_theta.F 68 COST_THETA 
      _RL fcthread
./pkg/ecco/cost_aqh.F 128 COST_AQH 
            fcthread         = fcthread + fctile
./pkg/ecco/cost_aqh.F 150 COST_AQH 
        _GLOBAL_SUM_R8( fcthread , myThid )
./pkg/ecco/cost_aqh.F 160 COST_AQH 
     &    fcthread
./pkg/ecco/cost_aqh.F 174 COST_AQH 
      fcthread = 0. _d 0
./pkg/ecco/cost_aqh.F 57 COST_AQH 
      _RL fcthread
./pkg/ecco/cost_aqh.F 98 COST_AQH 
      fcthread = 0. _d 0
./pkg/ecco/cost_merstress.F 111 COST_MERSTRESS 
      fcthread = 0. _d 0
./pkg/ecco/cost_merstress.F 170 COST_MERSTRESS 
          fcthread          = fcthread + fctilem
./pkg/ecco/cost_merstress.F 191 COST_MERSTRESS 
      fcthread = 0. _d 0
./pkg/ecco/cost_merstress.F 223 COST_MERSTRESS 
            fcthread         = fcthread + fctile
./pkg/ecco/cost_merstress.F 245 COST_MERSTRESS 
        _GLOBAL_SUM_R8( fcthread , myThid )
./pkg/ecco/cost_merstress.F 255 COST_MERSTRESS 
     &    fcthread
./pkg/ecco/cost_merstress.F 269 COST_MERSTRESS 
      fcthread = 0. _d 0
./pkg/ecco/cost_merstress.F 67 COST_MERSTRESS 
      _RL fcthread
./pkg/ecco/cost_salt_ini_fin.F 119 COST_SALT_INI_FIN 
            fcthread          = fcthread + fctile
./pkg/ecco/cost_salt_ini_fin.F 141 COST_SALT_INI_FIN 
        _GLOBAL_SUM_R8( fcthread , myThid )
./pkg/ecco/cost_salt_ini_fin.F 151 COST_SALT_INI_FIN 
     &    fcthread
./pkg/ecco/cost_salt_ini_fin.F 164 COST_SALT_INI_FIN 
      fcthread = 0. _d 0
./pkg/ecco/cost_salt_ini_fin.F 53 COST_SALT_INI_FIN 
      _RL fcthread
./pkg/ecco/cost_salt_ini_fin.F 91 COST_SALT_INI_FIN 
      fcthread = 0. _d 0
./pkg/ecco/cost_obcse.F 100 COST_OBCSE 
      fcthread = 0. _d 0
./pkg/ecco/cost_obcse.F 137 COST_OBCSE 
            fcthread         = fcthread           + fctile
./pkg/ecco/cost_obcse.F 174 COST_OBCSE 
            fcthread         = fcthread           + fctile
./pkg/ecco/cost_obcse.F 210 COST_OBCSE 
            fcthread         = fcthread           + fctile
./pkg/ecco/cost_obcse.F 247 COST_OBCSE 
            fcthread         = fcthread           + fctile
./pkg/ecco/cost_obcse.F 254 COST_OBCSE 
        _GLOBAL_SUM_R8( fcthread , myThid )
./pkg/ecco/cost_obcse.F 264 COST_OBCSE 
     &    ' (obcse) = ',fcthread
./pkg/ecco/cost_obcse.F 62 COST_OBCSE 
      _RL fcthread
./pkg/ecco/cost_vwind.F 128 COST_VWIND 
            fcthread         = fcthread + fctile
./pkg/ecco/cost_vwind.F 150 COST_VWIND 
        _GLOBAL_SUM_R8( fcthread , myThid )
./pkg/ecco/cost_vwind.F 160 COST_VWIND 
     &    fcthread
./pkg/ecco/cost_vwind.F 174 COST_VWIND 
      fcthread = 0. _d 0
./pkg/ecco/cost_vwind.F 57 COST_VWIND 
      _RL fcthread
./pkg/ecco/cost_vwind.F 98 COST_VWIND 
      fcthread = 0. _d 0