Symbol Description Uses
tmpC 9


File Line number Procedure Code
./verification/tutorial_global_oce_optim/code_ad/cost_hflux.F 40 COST_HFLUX 
      _RL     locfc,tmpC
./verification/tutorial_global_oce_optim/code_ad/cost_hflux.F 42 COST_HFLUX 
      tmpC = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/cost_hflux.F 47 COST_HFLUX 
             tmpC = tmpC + maskC(i,j,1,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/cost_hflux.F 52 COST_HFLUX 
      _GLOBAL_SUM_RL( tmpC , myThid )
./verification/tutorial_global_oce_optim/code_ad/cost_hflux.F 53 COST_HFLUX 
      IF ( tmpC.GT.0. ) tmpC = 1. _d 0 / tmpC
./verification/tutorial_global_oce_optim/code_ad/cost_hflux.F 71 COST_HFLUX 
            locfc = locfc + tmpC*maskC(i,j,1,bi,bj)*