Symbol Description Uses
act1 95


File Line number Procedure Code
./pkg/ebm/ebm_atmosphere.F 70 EBM_ATMOSPHERE 
          act1 = bi - myBxLo(myThid)
./pkg/ebm/ebm_atmosphere.F 77 EBM_ATMOSPHERE 
          iebmkey = (act1 + 1) + act2*max1
./pkg/exf/exf_bulkformulae.F 213 EXF_BULKFORMULAE 
          act1 = bi - myBxLo(myThid)
./pkg/exf/exf_bulkformulae.F 223 EXF_BULKFORMULAE 
     &         + sNx*sNy*act1
./pkg/exf/exf_bulkformulae.F 265 EXF_BULKFORMULAE 
     &                  + niter_bulk*sNx*sNy*act1
./pkg/exf/exf_mapfields.F 106 EXF_MAPFIELDS 
          ikey = (act1 + 1) + act2*max1
./pkg/exf/exf_mapfields.F 99 EXF_MAPFIELDS 
          act1 = bi - myBxLo(myThid)
./pkg/ptracers/ptracers_integrate.F 104 PTRACERS_INTEGRATE 
          act1 = bi - myBxLo(myThid)
./pkg/ptracers/ptracers_integrate.F 112 PTRACERS_INTEGRATE 
     &                      + act1*max0
./pkg/ptracers/ptracers_implicit.F 68 PTRACERS_IMPLICIT 
          act1 = bi - myBxLo(myThid)
./pkg/ptracers/ptracers_implicit.F 76 PTRACERS_IMPLICIT 
     &                      + act1*max0
./pkg/ptracers/ptracers_advection.F 60 PTRACERS_ADVECTION 
          act1 = bi - myBxLo(myThid)
./pkg/ptracers/ptracers_advection.F 68 PTRACERS_ADVECTION 
     &                      + act1*max0
./pkg/gmredi/gmredi_slope_psi.F 69 GMREDI_SLOPE_PSI 
      act1 = bi - myBxLo(myThid)
./pkg/gmredi/gmredi_slope_psi.F 76 GMREDI_SLOPE_PSI 
      igmkey = (act1 + 1) + act2*max1
./pkg/gmredi/gmredi_rtransport.F 60 GMREDI_RTRANSPORT 
          act1 = bi - myBxLo(myThid)
./pkg/gmredi/gmredi_rtransport.F 68 GMREDI_RTRANSPORT 
     &                      + act1*max0
./pkg/gmredi/gmredi_xtransport.F 64 GMREDI_XTRANSPORT 
          act1 = bi - myBxLo(myThid)
./pkg/gmredi/gmredi_xtransport.F 72 GMREDI_XTRANSPORT 
     &                      + act1*max0
./pkg/gmredi/gmredi_calc_tensor.F 77 GMREDI_CALC_TENSOR 
          act1 = bi - myBxLo(myThid)
./pkg/gmredi/gmredi_calc_tensor.F 84 GMREDI_CALC_TENSOR 
          igmkey = (act1 + 1) + act2*max1
./pkg/gmredi/gmredi_slope_limit.F 73 GMREDI_SLOPE_LIMIT 
      act1 = bi - myBxLo(myThid)
./pkg/gmredi/gmredi_slope_limit.F 80 GMREDI_SLOPE_LIMIT 
      ikey = (act1 + 1) + act2*max1
./pkg/gmredi/gmredi_calc_psi_b.F 58 GMREDI_CALC_PSI_B 
          act1 = bi - myBxLo(myThid)
./pkg/gmredi/gmredi_calc_psi_b.F 65 GMREDI_CALC_PSI_B 
          igmkey = (act1 + 1) + act2*max1
./pkg/gmredi/gmredi_ytransport.F 64 GMREDI_YTRANSPORT 
          act1 = bi - myBxLo(myThid)
./pkg/gmredi/gmredi_ytransport.F 72 GMREDI_YTRANSPORT 
     &                      + act1*max0
./pkg/mom_fluxform/mom_fluxform.F 165 MOM_FLUXFORM 
          act1 = bi - myBxLo(myThid)
./pkg/mom_fluxform/mom_fluxform.F 173 MOM_FLUXFORM 
     &                    + act1*max0
./pkg/autodiff/tamc.h 130 NO PROCEDURE 
      INTEGER act0, act1, act2, act3, act4
./verification/global_ocean.90x40x15/code_ad_vecinv/tamc.h 118 NO PROCEDURE 
      INTEGER act0, act1, act2, act3, act4
./verification/global_ocean.90x40x15/code_ad_nlfs/tamc.h 118 NO PROCEDURE 
      INTEGER act0, act1, act2, act3, act4
./verification/global_ocean.90x40x15/code_ad/tamc.h 118 NO PROCEDURE 
      INTEGER act0, act1, act2, act3, act4
./verification/tutorial_tracer_adjsens/code_ad/tamc.h 124 NO PROCEDURE 
      INTEGER act0, act1, act2, act3, act4
./verification/hs94.1x64x5/code_ad/tamc.h 114 NO PROCEDURE 
      INTEGER act0, act1, act2, act3, act4
./verification/natl_box_adjoint/code_seaice/tamc.h 120 NO PROCEDURE 
      INTEGER act0, act1, act2, act3, act4
./verification/natl_box_adjoint/code/tamc.h 119 NO PROCEDURE 
      INTEGER act0, act1, act2, act3, act4
./verification/natl_box_adjoint/code_bulk/tamc.h 122 NO PROCEDURE 
      INTEGER act0, act1, act2, act3, act4
./verification/OpenAD/code_ad_openad/tamc.h 118 NO PROCEDURE 
      INTEGER act0, act1, act2, act3, act4
./verification/OpenAD/code_ad/tamc.h 118 NO PROCEDURE 
      INTEGER act0, act1, act2, act3, act4
./model/src/dynamics.F 272 DYNAMICS 
          act1 = bi - myBxLo(myThid)
./model/src/dynamics.F 279 DYNAMICS 
          idynkey = (act1 + 1) + act2*max1
./verification/global2x2_tot/code/tamc.h 113 NO PROCEDURE 
      INTEGER act0, act1, act2, act3, act4
./verification/front_relax/code_ad/tamc.h 115 NO PROCEDURE 
      INTEGER act0, act1, act2, act3, act4
./verification/global_ocean_ebm/code_ad/tamc.h 118 NO PROCEDURE 
      INTEGER act0, act1, act2, act3, act4
./verification/lab_sea/code_ad_seaice_only/tamc.h 120 NO PROCEDURE 
      INTEGER act0, act1, act2, act3, act4
./verification/lab_sea/code_ad_seaice_ocean/tamc.h 120 NO PROCEDURE 
      INTEGER act0, act1, act2, act3, act4
./model/src/calc_phi_hyd.F 107 CALC_PHI_HYD 
          act1 = bi - myBxLo(myThid)
./model/src/calc_phi_hyd.F 118 CALC_PHI_HYD 
          ikey = (act1 + 1) + act2*max1
./verification/global1x1_tot/code_seaice_adj/tamc.h 117 NO PROCEDURE 
      INTEGER act0, act1, act2, act3, act4
./model/src/thermodynamics.F 211 THERMODYNAMICS 
          act1 = bi - myBxLo(myThid)
./model/src/thermodynamics.F 218 THERMODYNAMICS 
          itdkey = (act1 + 1) + act2*max1
./verification/global1x1_tot/code/tamc.h 117 NO PROCEDURE 
      INTEGER act0, act1, act2, act3, act4
./model/src/momentum_correction_step.F 153 MOMENTUM_CORRECTION_STEP 
          act1 = bi - myBxLo(myThid)
./model/src/momentum_correction_step.F 160 MOMENTUM_CORRECTION_STEP 
          idynkey = (act1 + 1) + act2*max1
./verification/global1x1_tot/code_taueddy/tamc.h 111 NO PROCEDURE 
      INTEGER act0, act1, act2, act3, act4
./verification/bottom_ctrl_5x5/code_ad/tamc.h 122 NO PROCEDURE 
      INTEGER act0, act1, act2, act3, act4
./model/src/convective_adjustment.F 83 CONVECTIVE_ADJUSTMENT 
          act1 = bi - myBxLo(myThid)
./model/src/convective_adjustment.F 90 CONVECTIVE_ADJUSTMENT 
          ikey = (act1 + 1) + act2*max1
./model/src/calc_gt.F 112 CALC_GT 
          act1 = bi - myBxLo(myThid)
./model/src/calc_gt.F 119 CALC_GT 
          itdkey = (act1 + 1) + act2*max1
./model/src/do_oceanic_phys.F 235 DO_OCEANIC_PHYS 
          act1 = bi - myBxLo(myThid)
./model/src/do_oceanic_phys.F 242 DO_OCEANIC_PHYS 
          itdkey = (act1 + 1) + act2*max1
./model/src/convective_adjustment_ini.F 88 CONVECTIVE_ADJUSTMENT_INI 
          act1 = bi - myBxLo(myThid)
./model/src/convective_adjustment_ini.F 95 CONVECTIVE_ADJUSTMENT_INI 
          ikey = (act1 + 1) + act2*max1
./model/src/cg2d_nsa.F 133 CG2D_NSA 
          act1 = myThid - 1
./model/src/cg2d_nsa.F 136 CG2D_NSA 
          ikey = (act1 + 1) + act2*max1
./model/src/calc_gs.F 113 CALC_GS 
          act1 = bi - myBxLo(myThid)
./model/src/calc_gs.F 120 CALC_GS 
          itdkey = (act1 + 1) + act2*max1
./pkg/kpp/kpp_calc.F 204 KPP_CALC 
          act1 = bi - myBxLo(myThid)
./pkg/kpp/kpp_calc.F 211 KPP_CALC 
          ikppkey = (act1 + 1) + act2*max1
./pkg/mom_common/mom_calc_hfacz.F 81 MOM_CALC_HFACZ 
          act1 = bi - myBxLo(myThid)
./pkg/mom_common/mom_calc_hfacz.F 88 MOM_CALC_HFACZ 
          ikey = (act1 + 1) + act2*max1
./pkg/obcs/obcs_sponge.F 453 OBCS_SPONGE_T 
          act1 = bi - myBxLo(myThid)
./pkg/obcs/obcs_sponge.F 460 OBCS_SPONGE_T 
          ikey = (act1 + 1) + act2*max1
./pkg/obcs/obcs_sponge.F 695 OBCS_SPONGE_S 
          act1 = bi - myBxLo(myThid)
./pkg/obcs/obcs_sponge.F 702 OBCS_SPONGE_S 
          ikey = (act1 + 1) + act2*max1
./pkg/ecco/cost_tau_eddy.F 54 COST_TAU_EDDY 
        act1 = bi - myBxLo(myThid)
./pkg/ecco/cost_tau_eddy.F 59 COST_TAU_EDDY 
        ikey = (act1 + 1) + act2*max1
./pkg/ecco/cost_drifter.F 131 COST_DRIFTER 
          act1 = bi - myBxLo(myThid)
./pkg/ecco/cost_drifter.F 138 COST_DRIFTER 
          ikey = (act1 + 1) + act2*max1
./pkg/thsice/thsice_main.F 89 THSICE_MAIN 
          act1 = bi - myBxLo(myThid)
./pkg/thsice/thsice_main.F 96 THSICE_MAIN 
          iicekey = (act1 + 1) + act2*max1
./pkg/mom_vecinv/mom_vecinv.F 126 MOM_VECINV 
          act1 = bi - myBxLo(myThid)
./pkg/mom_vecinv/mom_vecinv.F 134 MOM_VECINV 
     &                    + act1*max0
./pkg/generic_advdiff/gad_advection.F 161 GAD_ADVECTION 
          act1 = bi - myBxLo(myThid)
./pkg/generic_advdiff/gad_advection.F 169 GAD_ADVECTION 
     &                      + act1*max0
./pkg/seaice/groatb.F 63 GROATB 
          act1 = bi - myBxLo(myThid)
./pkg/seaice/groatb.F 70 GROATB 
          iicekey = (act1 + 1) + act2*max1
./pkg/seaice/seaice_advection.F 143 SEAICE_ADVECTION 
          act1 = bi - myBxLo(myThid)
./pkg/seaice/seaice_advection.F 151 SEAICE_ADVECTION 
     &                      + act1*max0
./pkg/seaice/growth.F 165 GROWTH 
          act1 = bi - myBxLo(myThid)
./pkg/seaice/growth.F 172 GROWTH 
          iicekey = (act1 + 1) + act2*max1
./pkg/seaice/growth.F 66 GROWTH 
          act1 = bi - myBxLo(myThid)
./pkg/seaice/growth.F 73 GROWTH 
          iicekey = (act1 + 1) + act2*max1