Symbol Description Uses
act2 156



File Line number Procedure Code
./pkg/exf/exf_bulkformulae.F 264 EXF_BULKFORMULAE
          act2 = bj - myByLo(myThid)
./pkg/exf/exf_bulkformulae.F 273 EXF_BULKFORMULAE
     &         + sNx*sNy*max1*act2
./pkg/exf/exf_bulkformulae.F 365 EXF_BULKFORMULAE
     &           + sNx*sNy*niter_bulk*max1*act2
./pkg/exf/exf_bulkformulae.F 480 EXF_BULKFORMULAE
     &          + sNx*sNy*max1*act2
./pkg/exf/exf_mapfields.F 100 EXF_MAPFIELDS
          ikey = (act1 + 1) + act2*max1
./pkg/exf/exf_mapfields.F 95 EXF_MAPFIELDS
          act2 = bj - myByLo(myThid)
./pkg/exf/exf_wind.F 65 EXF_WIND
          act2 = bj - myByLo(myThid)
./pkg/exf/exf_wind.F 70 EXF_WIND
          ikey = (act1 + 1) + act2*max1
./pkg/generic_advdiff/gad_advection.F 174 GAD_ADVECTION
          act2 = bj - myByLo(myThid)
./pkg/generic_advdiff/gad_advection.F 181 GAD_ADVECTION
     &                      + act2*max0*max1
./pkg/gmredi/gmredi_calc_psi_b.F 75 GMREDI_CALC_PSI_B
          act2 = bj - myByLo(myThid)
./pkg/gmredi/gmredi_calc_psi_b.F 80 GMREDI_CALC_PSI_B
          igmkey = (act1 + 1) + act2*max1
./pkg/gmredi/gmredi_calc_tensor.F 125 GMREDI_CALC_TENSOR
          act2 = bj - myByLo(myThid)
./pkg/gmredi/gmredi_calc_tensor.F 130 GMREDI_CALC_TENSOR
          igmkey = (act1 + 1) + act2*max1
./pkg/gmredi/gmredi_rtransport.F 65 GMREDI_RTRANSPORT
          act2 = bj - myByLo(myThid)
./pkg/gmredi/gmredi_rtransport.F 72 GMREDI_RTRANSPORT
     &                      + act2*max0*max1
./pkg/gmredi/gmredi_slope_limit.F 131 GMREDI_SLOPE_LIMIT
      act2 = bj - myByLo(myThid)
./pkg/gmredi/gmredi_slope_limit.F 136 GMREDI_SLOPE_LIMIT
      ikey = (act1 + 1) + act2*max1
./pkg/gmredi/gmredi_slope_psi.F 76 GMREDI_SLOPE_PSI
      act2 = bj - myByLo(myThid)
./pkg/gmredi/gmredi_slope_psi.F 81 GMREDI_SLOPE_PSI
      igmkey = (act1 + 1) + act2*max1
./pkg/gmredi/gmredi_xtransport.F 80 GMREDI_XTRANSPORT
          act2 = bj - myByLo(myThid)
./pkg/gmredi/gmredi_xtransport.F 87 GMREDI_XTRANSPORT
     &                      + act2*max0*max1
./pkg/gmredi/gmredi_ytransport.F 80 GMREDI_YTRANSPORT
          act2 = bj - myByLo(myThid)
./pkg/gmredi/gmredi_ytransport.F 87 GMREDI_YTRANSPORT
     &                      + act2*max0*max1
./pkg/kpp/kpp_calc.F 222 KPP_CALC
          act2 = bj - myByLo(myThid)
./pkg/kpp/kpp_calc.F 227 KPP_CALC
          ikppkey = (act1 + 1) + act2*max1
./pkg/longstep/longstep_thermodynamics.F 113 LONGSTEP_THERMODYNAMICS
          act2 = bj - myByLo(myThid)
./pkg/longstep/longstep_thermodynamics.F 118 LONGSTEP_THERMODYNAMICS
          itdkey = (act1 + 1) + act2*max1
./pkg/mom_common/mom_calc_hfacz.F 90 MOM_CALC_HFACZ
          act2 = bj - myByLo(myThid)
./pkg/mom_common/mom_calc_hfacz.F 95 MOM_CALC_HFACZ
          ikey = (act1 + 1) + act2*max1
./pkg/mom_common/mom_calc_visc.F 149 MOM_CALC_VISC
          act2 = bj - myByLo(myThid)
./pkg/mom_common/mom_calc_visc.F 154 MOM_CALC_VISC
          ikey = (act1 + 1) + act2*max1
./model/src/calc_phi_hyd.F 123 CALC_PHI_HYD
          act2 = bj - myByLo(myThid)
./model/src/calc_phi_hyd.F 131 CALC_PHI_HYD
          ikey = (act1 + 1) + act2*max1
./pkg/mom_fluxform/mom_fluxform.F 185 MOM_FLUXFORM
          act2 = bj - myByLo(myThid)
./pkg/mom_fluxform/mom_fluxform.F 192 MOM_FLUXFORM
     &                    + act2*max0*max1
./pkg/mom_vecinv/mom_vecinv.F 152 MOM_VECINV
          act2 = bj - myByLo(myThid)
./pkg/mom_vecinv/mom_vecinv.F 159 MOM_VECINV
     &                    + act2*max0*max1
./model/src/cg2d_nsa.F 135 CG2D_NSA
          act2 = ikey_dynamics - 1
./model/src/cg2d_nsa.F 136 CG2D_NSA
          ikey = (act1 + 1) + act2*max1
./pkg/obcs/obcs_calc_stevens.F 148 OBCS_CALC_STEVENS
          act2 = bj - myByLo(myThid)
./pkg/obcs/obcs_calc_stevens.F 153 OBCS_CALC_STEVENS
          ikey = (act1 + 1) + act2*max1
./model/src/convective_adjustment.F 102 CONVECTIVE_ADJUSTMENT
          act2 = bj - myByLo(myThid)
./model/src/convective_adjustment.F 107 CONVECTIVE_ADJUSTMENT
          ikey = (act1 + 1) + act2*max1
./model/src/convective_adjustment_ini.F 102 CONVECTIVE_ADJUSTMENT_INI
          act2 = bj - myByLo(myThid)
./model/src/convective_adjustment_ini.F 107 CONVECTIVE_ADJUSTMENT_INI
          ikey = (act1 + 1) + act2*max1
./pkg/obcs/obcs_sponge.F 448 OBCS_SPONGE_T
          act2 = bj - myByLo(myThid)
./pkg/obcs/obcs_sponge.F 453 OBCS_SPONGE_T
          ikey = (act1 + 1) + act2*max1
./pkg/obcs/obcs_sponge.F 685 OBCS_SPONGE_S
          act2 = bj - myByLo(myThid)
./pkg/obcs/obcs_sponge.F 690 OBCS_SPONGE_S
          ikey = (act1 + 1) + act2*max1
./pkg/ptracers/ptracers_convect.F 57 PTRACERS_CONVECT
          act2 = bj - myByLo(myThid)
./pkg/ptracers/ptracers_convect.F 64 PTRACERS_CONVECT
     &                      + act2*max0*max1
./pkg/ptracers/ptracers_integrate.F 169 PTRACERS_INTEGRATE
          act2 = bj - myByLo(myThid)
./pkg/ptracers/ptracers_integrate.F 176 PTRACERS_INTEGRATE
     &                      + act2*max0*max1
./model/src/do_oceanic_phys.F 522 DO_OCEANIC_PHYS
          act2 = bj - myByLo(myThid)
./model/src/do_oceanic_phys.F 527 DO_OCEANIC_PHYS
          itdkey = (act1 + 1) + act2*max1
./model/src/dynamics.F 284 DYNAMICS
          act2 = bj - myByLo(myThid)
./model/src/dynamics.F 289 DYNAMICS
          idynkey = (act1 + 1) + act2*max1
./pkg/salt_plume/salt_plume_calc_depth.F 66 SALT_PLUME_CALC_DEPTH
        act2 = bj - myByLo(myThid)
./pkg/salt_plume/salt_plume_calc_depth.F 71 SALT_PLUME_CALC_DEPTH
        ikey = (act1 + 1) + act2*max1
./model/src/external_forcing_surf.F 185 EXTERNAL_FORCING_SURF
          act2 = bj - myByLo(myThid)
./model/src/external_forcing_surf.F 190 EXTERNAL_FORCING_SURF
          ikey = (act1 + 1) + act2*max1
./pkg/seaice/seaice_advdiff.F 168 SEAICE_ADVDIFF
        act2 = bj - myByLo(myThid)
./pkg/seaice/seaice_advdiff.F 173 SEAICE_ADVDIFF
        itmpkey = (act1 + 1) + act2*max1
./pkg/seaice/seaice_advection.F 155 SEAICE_ADVECTION
          act2 = bj - myByLo(myThid)
./pkg/seaice/seaice_advection.F 162 SEAICE_ADVECTION
     &                      + act2*max0*max1
./pkg/seaice/seaice_growth.F 382 SEAICE_GROWTH
        act2 = bj - myByLo(myThid)
./pkg/seaice/seaice_growth.F 387 SEAICE_GROWTH
        iicekey = (act1 + 1) + act2*max1
./pkg/seaice/seaice_lsr.F 680 SEAICE_LSR
          act2 = bj - myByLo(myThid)
./pkg/seaice/seaice_lsr.F 685 SEAICE_LSR
          itmpkey3 = (act1 + 1) + act2*max1
./pkg/seaice/seaice_reg_ridge.F 89 SEAICE_REG_RIDGE
        act2 = bj - myByLo(myThid)
./pkg/seaice/seaice_reg_ridge.F 94 SEAICE_REG_RIDGE
        iicekey = (act1 + 1) + act2*max1
./pkg/shelfice/shelfice_thermodynamics.F 223 SHELFICE_THERMODYNAMICS
        act2 = bj - myByLo(myThid)
./pkg/shelfice/shelfice_thermodynamics.F 228 SHELFICE_THERMODYNAMICS
        ikey = (act1 + 1) + act2*max1
./pkg/streamice/streamice_adv_front.F 126 STREAMICE_ADV_FRONT
          act2 = bj - myByLo(myThid)
./pkg/streamice/streamice_adv_front.F 134 STREAMICE_ADV_FRONT
     &         + (sNx+2)*(sNy+2)*max1*act2
./pkg/streamice/streamice_visc_beta_hybrid.F 108 STREAMICE_VISC_BETA_HYBRID
          act2 = bj - myByLo(myThid)
./pkg/streamice/streamice_visc_beta_hybrid.F 118 STREAMICE_VISC_BETA_HYBRID
     &         + Nr*sNx*sNy*max1*act2
./pkg/thsice/thsice_advdiff.F 115 THSICE_ADVDIFF
          act2 = bj - myByLo(myThid)
./pkg/thsice/thsice_advdiff.F 120 THSICE_ADVDIFF
          ticekey = (act1 + 1) + act2*max1
./pkg/thsice/thsice_advection.F 156 THSICE_ADVECTION
      act2 = bj - myByLo(myThid)
./pkg/thsice/thsice_advection.F 161 THSICE_ADVECTION
      ticekey = (act1 + 1) + act2*max1
./pkg/thsice/thsice_advection.F 262 THSICE_ADVECTION
     &         + nipass*max1*act2
./pkg/thsice/thsice_calc_thickn.F 228 THSICE_CALC_THICKN
      act2 = bj - myByLo(myThid)
./pkg/thsice/thsice_calc_thickn.F 233 THSICE_CALC_THICKN
      ticekey = (act1 + 1) + act2*max1
./pkg/thsice/thsice_calc_thickn.F 892 THSICE_CALC_THICKN
     &       + sNx*sNy*max1*act2
./pkg/thsice/thsice_do_advect.F 73 THSICE_DO_ADVECT
          act2 = bj - myByLo(myThid)
./pkg/thsice/thsice_do_advect.F 78 THSICE_DO_ADVECT
          ticekey = (act1 + 1) + act2*max1
./pkg/thsice/thsice_extend.F 137 THSICE_EXTEND
      act2 = bj - myByLo(myThid)
./pkg/thsice/thsice_extend.F 142 THSICE_EXTEND
      ticekey = (act1 + 1) + act2*max1
./pkg/thsice/thsice_get_exf.F 215 THSICE_GET_EXF
          act2 = bj - myByLo(myThid)
./pkg/thsice/thsice_get_exf.F 224 THSICE_GET_EXF
     &         + sNx*sNy*MaxTsf*max1*act2
./pkg/thsice/thsice_get_exf.F 285 THSICE_GET_EXF
          act2 = bj - myByLo(myThid)
./pkg/thsice/thsice_get_exf.F 294 THSICE_GET_EXF
     &         + sNx*sNy*MaxTsf*max1*act2
./pkg/thsice/thsice_get_exf.F 342 THSICE_GET_EXF
     &                  + niter_bulk*sNx*sNy*MaxTsf*max1*act2
./pkg/thsice/thsice_main.F 278 THSICE_MAIN
          act2 = bj - myByLo(myThid)
./pkg/thsice/thsice_main.F 283 THSICE_MAIN
          ticekey = (act1 + 1) + act2*max1
./pkg/thsice/thsice_main.F 91 THSICE_MAIN
          act2 = bj - myByLo(myThid)
./pkg/thsice/thsice_main.F 96 THSICE_MAIN
          ticekey = (act1 + 1) + act2*max1
./pkg/thsice/thsice_solve4temp.F 197 THSICE_SOLVE4TEMP
      act2 = bj - myByLo(myThid)
./pkg/thsice/thsice_solve4temp.F 202 THSICE_SOLVE4TEMP
      ticekey = (act1 + 1) + act2*max1
./pkg/thsice/thsice_solve4temp.F 245 THSICE_SOLVE4TEMP
     &         + sNx*sNy*max1*act2
./pkg/thsice/thsice_step_fwd.F 117 THSICE_STEP_FWD
      act2 = bj - myByLo(myThid)
./pkg/thsice/thsice_step_fwd.F 122 THSICE_STEP_FWD
      ticekey = (act1 + 1) + act2*max1
./pkg/thsice/thsice_step_temp.F 89 THSICE_STEP_TEMP
      act2 = bj - myByLo(myThid)
./pkg/thsice/thsice_step_temp.F 94 THSICE_STEP_TEMP
      ticekey = (act1 + 1) + act2*max1
./verification/1D_ocean_ice_column/code_ad/tamc.h 125 NO PROCEDURE
      INTEGER act0, act1, act2, act3, act4
./verification/OpenAD/code_ad/tamc.h 123 NO PROCEDURE
      INTEGER act0, act1, act2, act3, act4
./verification/OpenAD/code_ad_singlelayer/tamc.h 123 NO PROCEDURE
      INTEGER act0, act1, act2, act3, act4
./verification/OpenAD/code_oad/tamc.h 123 NO PROCEDURE
      INTEGER act0, act1, act2, act3, act4
./verification/bottom_ctrl_5x5/code_ad/tamc.h 126 NO PROCEDURE
      INTEGER act0, act1, act2, act3, act4
./verification/front_relax/code_ad/tamc.h 117 NO PROCEDURE
      INTEGER act0, act1, act2, act3, act4
./verification/global_ocean.90x40x15/code_ad/tamc.h 123 NO PROCEDURE
      INTEGER act0, act1, act2, act3, act4
./verification/global_ocean.90x40x15/code_oad/tamc.h 123 NO PROCEDURE
      INTEGER act0, act1, act2, act3, act4
./verification/global_ocean.cs32x15/code_ad/tamc.h 123 NO PROCEDURE
      INTEGER act0, act1, act2, act3, act4
./verification/global_ocean_ebm/code_ad/tamc.h 123 NO PROCEDURE
      INTEGER act0, act1, act2, act3, act4
./verification/halfpipe_streamice/code_ad/tamc.h 123 NO PROCEDURE
      INTEGER act0, act1, act2, act3, act4
./verification/halfpipe_streamice/code_oad/tamc.h 123 NO PROCEDURE
      INTEGER act0, act1, act2, act3, act4
./verification/hs94.1x64x5/code_ad/tamc.h 112 NO PROCEDURE
      INTEGER act0, act1, act2, act3, act4
./verification/isomip/code_ad/tamc.h 123 NO PROCEDURE
      INTEGER act0, act1, act2, act3, act4
./verification/isomip/code_oad/tamc.h 123 NO PROCEDURE
      INTEGER act0, act1, act2, act3, act4
./verification/lab_sea/code_ad/tamc.h 127 NO PROCEDURE
      INTEGER act0, act1, act2, act3, act4
./verification/obcs_ctrl/code_ad/tamc.h 118 NO PROCEDURE
      INTEGER act0, act1, act2, act3, act4
./verification/offline_exf_seaice/code_ad/tamc.h 115 NO PROCEDURE
      INTEGER act0, act1, act2, act3, act4
./verification/tutorial_dic_adjoffline/code_ad/tamc.h 126 NO PROCEDURE
      INTEGER act0, act1, act2, act3, act4
./verification/tutorial_global_oce_biogeo/code_ad/tamc.h 126 NO PROCEDURE
      INTEGER act0, act1, act2, act3, act4
./verification/tutorial_global_oce_biogeo/code_oad/tamc.h 126 NO PROCEDURE
      INTEGER act0, act1, act2, act3, act4
./model/src/salt_integrate.F 166 SALT_INTEGRATE
          act2 = bj - myByLo(myThid)
./model/src/salt_integrate.F 171 SALT_INTEGRATE
          itdkey = (act1 + 1) + act2*max1
./verification/tutorial_global_oce_optim/code_ad/cost_hflux.F 60 COST_HFLUX
         act2 = bj - myByLo(myThid)
./verification/tutorial_global_oce_optim/code_ad/cost_hflux.F 63 COST_HFLUX
         ikey = (act1 + 1) + act2*max1
./verification/tutorial_global_oce_optim/code_ad/cost_temp.F 67 COST_TEMP
         act2 = bj - myByLo(myThid)
./verification/tutorial_global_oce_optim/code_ad/cost_temp.F 70 COST_TEMP
         ikey = (act1 + 1) + act2*max1
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 182 EXTERNAL_FORCING_SURF
          act2 = bj - myByLo(myThid)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 187 EXTERNAL_FORCING_SURF
          ikey = (act1 + 1) + act2*max1
./verification/tutorial_global_oce_optim/code_ad/tamc.h 121 NO PROCEDURE
      INTEGER act0, act1, act2, act3, act4
./verification/tutorial_global_oce_optim/code_oad/cost_hflux.F 60 COST_HFLUX
         act2 = bj - myByLo(myThid)
./verification/tutorial_global_oce_optim/code_oad/cost_hflux.F 63 COST_HFLUX
         ikey = (act1 + 1) + act2*max1
./verification/tutorial_global_oce_optim/code_oad/cost_temp.F 67 COST_TEMP
         act2 = bj - myByLo(myThid)
./verification/tutorial_global_oce_optim/code_oad/cost_temp.F 70 COST_TEMP
         ikey = (act1 + 1) + act2*max1
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F 182 EXTERNAL_FORCING_SURF
          act2 = bj - myByLo(myThid)
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F 187 EXTERNAL_FORCING_SURF
          ikey = (act1 + 1) + act2*max1
./verification/tutorial_global_oce_optim/code_oad/tamc.h 121 NO PROCEDURE
      INTEGER act0, act1, act2, act3, act4
./verification/tutorial_tracer_adjsens/code_ad/tamc.h 129 NO PROCEDURE
      INTEGER act0, act1, act2, act3, act4
./verification/tutorial_tracer_adjsens/code_oad/tamc.h 129 NO PROCEDURE
      INTEGER act0, act1, act2, act3, act4
./model/src/temp_integrate.F 174 TEMP_INTEGRATE
          act2 = bj - myByLo(myThid)
./model/src/temp_integrate.F 179 TEMP_INTEGRATE
          itdkey = (act1 + 1) + act2*max1
./model/src/thermodynamics.F 143 THERMODYNAMICS
          act2 = bj - myByLo(myThid)
./model/src/thermodynamics.F 148 THERMODYNAMICS
          itdkey = (act1 + 1) + act2*max1
./pkg/autodiff/tamc.h 126 NO PROCEDURE
      INTEGER act0, act1, act2, act3, act4
./pkg/ebm/ebm_atmosphere.F 91 EBM_ATMOSPHERE
          act2 = bj - myByLo(myThid)
./pkg/ebm/ebm_atmosphere.F 96 EBM_ATMOSPHERE
          iebmkey = (act1 + 1) + act2*max1
./pkg/ecco/cost_drifter.F 137 COST_DRIFTER
          act2 = bj - myByLo(myThid)
./pkg/ecco/cost_drifter.F 142 COST_DRIFTER
          ikey = (act1 + 1) + act2*max1
./pkg/ecco/cost_tau_eddy.F 224 COST_TAU_EDDY
        act2 = bj - myByLo(myThid)
./pkg/ecco/cost_tau_eddy.F 227 COST_TAU_EDDY
        ikey = (act1 + 1) + act2*max1