Symbol Description Uses
fcthread 111


File Line number Procedure Code
./pkg/shelfice/shelfice_cost_shifwflx.F 103 SHELFICE_COST_SHIFWFLX 
      fcthread = 0. _d 0
./pkg/shelfice/shelfice_cost_shifwflx.F 154 SHELFICE_COST_SHIFWFLX 
         fcthread             = fcthread + fctile
./pkg/shelfice/shelfice_cost_shifwflx.F 164 SHELFICE_COST_SHIFWFLX 
      _GLOBAL_SUM_RL( fcthread , myThid )
./pkg/shelfice/shelfice_cost_shifwflx.F 174 SHELFICE_COST_SHIFWFLX 
     &     ' (shifwflx) = ',fcthread
./pkg/shelfice/shelfice_cost_shifwflx.F 68 SHELFICE_COST_SHIFWFLX 
      _RL fcthread
./pkg/ecco/cost_bottomdrag.F 120 COST_BOTTOMDRAG 
            fcthread          = fcthread + fctile
./pkg/ecco/cost_bottomdrag.F 142 COST_BOTTOMDRAG 
        _GLOBAL_SUM_RL( fcthread , myThid )
./pkg/ecco/cost_bottomdrag.F 152 COST_BOTTOMDRAG 
     &    fcthread
./pkg/ecco/cost_bottomdrag.F 163 COST_BOTTOMDRAG 
      fcthread = 0. _d 0
./pkg/ecco/cost_bottomdrag.F 51 COST_BOTTOMDRAG 
      _RL fcthread
./pkg/ecco/cost_bottomdrag.F 91 COST_BOTTOMDRAG 
      fcthread = 0. _d 0
./pkg/ecco/cost_ctdsclim.F 118 COST_CTDSCLIM 
      fcthread = 0. _d 0
./pkg/ecco/cost_ctdsclim.F 207 COST_CTDSCLIM 
            fcthread         = fcthread         + fctile
./pkg/ecco/cost_ctdsclim.F 234 COST_CTDSCLIM 
        _GLOBAL_SUM_RL( fcthread , myThid )
./pkg/ecco/cost_ctdsclim.F 244 COST_CTDSCLIM 
     &    ' (salinity) = ',fcthread
./pkg/ecco/cost_ctdsclim.F 73 COST_CTDSCLIM 
      _RL fcthread
./pkg/ecco/cost_ctdtclim.F 117 COST_CTDTCLIM 
      fcthread = 0. _d 0
./pkg/ecco/cost_ctdtclim.F 207 COST_CTDTCLIM 
            fcthread         = fcthread         + fctile
./pkg/ecco/cost_ctdtclim.F 234 COST_CTDTCLIM 
        _GLOBAL_SUM_RL( fcthread , myThid )
./pkg/ecco/cost_ctdtclim.F 244 COST_CTDTCLIM 
     &    ' (temperature) = ',fcthread
./pkg/ecco/cost_ctdtclim.F 73 COST_CTDTCLIM 
      _RL fcthread
./pkg/ecco/cost_diffkr.F 125 COST_DIFFKR 
            fcthread          = fcthread + fctile
./pkg/ecco/cost_diffkr.F 147 COST_DIFFKR 
        _GLOBAL_SUM_RL( fcthread , myThid )
./pkg/ecco/cost_diffkr.F 157 COST_DIFFKR 
     &    fcthread
./pkg/ecco/cost_diffkr.F 168 COST_DIFFKR 
      fcthread = 0. _d 0
./pkg/ecco/cost_diffkr.F 51 COST_DIFFKR 
      _RL fcthread
./pkg/ecco/cost_diffkr.F 91 COST_DIFFKR 
      fcthread = 0. _d 0
./pkg/ecco/cost_kapgm.F 126 COST_KAPGM 
            fcthread          = fcthread + fctile
./pkg/ecco/cost_kapgm.F 148 COST_KAPGM 
        _GLOBAL_SUM_RL( fcthread , myThid )
./pkg/ecco/cost_kapgm.F 158 COST_KAPGM 
     &    fcthread
./pkg/ecco/cost_kapgm.F 169 COST_KAPGM 
      fcthread = 0. _d 0
./pkg/ecco/cost_kapgm.F 54 COST_KAPGM 
      _RL fcthread
./pkg/ecco/cost_kapgm.F 94 COST_KAPGM 
      fcthread = 0. _d 0
./pkg/ecco/cost_kapredi.F 126 COST_KAPREDI 
            fcthread          = fcthread + fctile
./pkg/ecco/cost_kapredi.F 148 COST_KAPREDI 
        _GLOBAL_SUM_RL( fcthread , myThid )
./pkg/ecco/cost_kapredi.F 158 COST_KAPREDI 
     &    fcthread
./pkg/ecco/cost_kapredi.F 169 COST_KAPREDI 
      fcthread = 0. _d 0
./pkg/ecco/cost_kapredi.F 54 COST_KAPREDI 
      _RL fcthread
./pkg/ecco/cost_kapredi.F 94 COST_KAPREDI 
      fcthread = 0. _d 0
./pkg/ecco/cost_obcs_ageos.F 142 COST_OBCS_AGEOS 
      fcthread = 0. _d 0
./pkg/ecco/cost_obcs_ageos.F 484 COST_OBCS_AGEOS 
            fcthread          = fcthread          + fctile
./pkg/ecco/cost_obcs_ageos.F 511 COST_OBCS_AGEOS 
        _GLOBAL_SUM_RL( fcthread , myThid )
./pkg/ecco/cost_obcs_ageos.F 521 COST_OBCS_AGEOS 
     &    ' (temperature) = ',fcthread
./pkg/ecco/cost_obcs_ageos.F 67 COST_OBCS_AGEOS 
      _RL fcthread
./pkg/ecco/cost_obcse.F 119 COST_OBCSE 
      fcthread = 0. _d 0
./pkg/ecco/cost_obcse.F 185 COST_OBCSE 
            fcthread         = fcthread + fctile
./pkg/ecco/cost_obcse.F 191 COST_OBCSE 
        _GLOBAL_SUM_RL( fcthread , myThid )
./pkg/ecco/cost_obcse.F 201 COST_OBCSE 
     &    ' (obcse) = ',fcthread
./pkg/ecco/cost_obcse.F 83 COST_OBCSE 
      _RL fcthread
./pkg/ecco/cost_obcsn.F 117 COST_OBCSN 
      fcthread = 0. _d 0
./pkg/ecco/cost_obcsn.F 184 COST_OBCSN 
            fcthread         = fcthread + fctile
./pkg/ecco/cost_obcsn.F 190 COST_OBCSN 
        _GLOBAL_SUM_RL( fcthread , myThid )
./pkg/ecco/cost_obcsn.F 200 COST_OBCSN 
     &    ' (obcsn) = ',fcthread
./pkg/ecco/cost_obcsn.F 82 COST_OBCSN 
      _RL fcthread
./pkg/ecco/cost_obcss.F 117 COST_OBCSS 
      fcthread = 0. _d 0
./pkg/ecco/cost_obcss.F 186 COST_OBCSS 
            fcthread         = fcthread + fctile
./pkg/ecco/cost_obcss.F 192 COST_OBCSS 
        _GLOBAL_SUM_RL( fcthread , myThid )
./pkg/ecco/cost_obcss.F 202 COST_OBCSS 
     &    ' (obcss) = ',fcthread
./pkg/ecco/cost_obcss.F 82 COST_OBCSS 
      _RL fcthread
./pkg/ecco/cost_obcsw.F 117 COST_OBCSW 
      fcthread = 0. _d 0
./pkg/ecco/cost_obcsw.F 183 COST_OBCSW 
            fcthread         = fcthread + fctile
./pkg/ecco/cost_obcsw.F 189 COST_OBCSW 
        _GLOBAL_SUM_RL( fcthread , myThid )
./pkg/ecco/cost_obcsw.F 199 COST_OBCSW 
     &    ' (obcsw) = ',fcthread
./pkg/ecco/cost_obcsw.F 82 COST_OBCSW 
      _RL fcthread
./pkg/ecco/cost_salt.F 113 COST_SALT 
      fcthread = 0. _d 0
./pkg/ecco/cost_salt.F 215 COST_SALT 
            fcthread         = fcthread         + fctile
./pkg/ecco/cost_salt.F 70 COST_SALT 
      _RL fcthread
./pkg/ecco/cost_salt_ini_fin.F 121 COST_SALT_INI_FIN 
            fcthread          = fcthread + fctile
./pkg/ecco/cost_salt_ini_fin.F 143 COST_SALT_INI_FIN 
        _GLOBAL_SUM_RL( fcthread , myThid )
./pkg/ecco/cost_salt_ini_fin.F 153 COST_SALT_INI_FIN 
     &    fcthread
./pkg/ecco/cost_salt_ini_fin.F 166 COST_SALT_INI_FIN 
      fcthread = 0. _d 0
./pkg/ecco/cost_salt_ini_fin.F 55 COST_SALT_INI_FIN 
      _RL fcthread
./pkg/ecco/cost_salt_ini_fin.F 93 COST_SALT_INI_FIN 
      fcthread = 0. _d 0
./pkg/ecco/cost_sigmar.F 115 COST_SIGMAR 
      fcthread = 0. _d 0
./pkg/ecco/cost_sigmar.F 208 COST_SIGMAR 
            fcthread         = fcthread         + fctile
./pkg/ecco/cost_sigmar.F 71 COST_SIGMAR 
      _RL fcthread
./pkg/ecco/cost_tau_eddy.F 128 COST_TAU_EDDY 
            fcthread          = fcthread + fctile
./pkg/ecco/cost_tau_eddy.F 163 COST_TAU_EDDY 
            fcthread          = fcthread + fctile
./pkg/ecco/cost_tau_eddy.F 185 COST_TAU_EDDY 
        _GLOBAL_SUM_RL( fcthread , myThid )
./pkg/ecco/cost_tau_eddy.F 195 COST_TAU_EDDY 
     &    fcthread
./pkg/ecco/cost_tau_eddy.F 260 COST_TAU_EDDY 
      fcthread = 0. _d 0
./pkg/ecco/cost_tau_eddy.F 57 COST_TAU_EDDY 
      _RL fcthread
./pkg/ecco/cost_tau_eddy.F 95 COST_TAU_EDDY 
      fcthread = 0. _d 0
./pkg/ecco/cost_theta.F 113 COST_THETA 
      fcthread = 0. _d 0
./pkg/ecco/cost_theta.F 215 COST_THETA 
            fcthread         = fcthread         + fctile
./pkg/ecco/cost_theta.F 71 COST_THETA 
      _RL fcthread
./pkg/ecco/cost_theta_ini_fin.F 121 COST_THETA_INI_FIN 
            fcthread          = fcthread + fctile
./pkg/ecco/cost_theta_ini_fin.F 143 COST_THETA_INI_FIN 
        _GLOBAL_SUM_RL( fcthread , myThid )
./pkg/ecco/cost_theta_ini_fin.F 153 COST_THETA_INI_FIN 
     &    fcthread
./pkg/ecco/cost_theta_ini_fin.F 166 COST_THETA_INI_FIN 
      fcthread = 0. _d 0
./pkg/ecco/cost_theta_ini_fin.F 55 COST_THETA_INI_FIN 
      _RL fcthread
./pkg/ecco/cost_theta_ini_fin.F 93 COST_THETA_INI_FIN 
      fcthread = 0. _d 0