Symbol Description Uses
max1 168


File Line number Procedure Code
./pkg/ebm/ebm_atmosphere.F 71 EBM_ATMOSPHERE 
          max1 = myBxHi(myThid) - myBxLo(myThid) + 1
./pkg/ebm/ebm_atmosphere.F 77 EBM_ATMOSPHERE 
          iebmkey = (act1 + 1) + act2*max1
./pkg/ebm/ebm_atmosphere.F 78 EBM_ATMOSPHERE 
     &                      + act3*max1*max2
./pkg/ebm/ebm_atmosphere.F 79 EBM_ATMOSPHERE 
     &                      + act4*max1*max2*max3
./pkg/exf/exf_bulkformulae.F 214 EXF_BULKFORMULAE 
          max1 = myBxHi(myThid) - myBxLo(myThid) + 1
./pkg/exf/exf_bulkformulae.F 224 EXF_BULKFORMULAE 
     &         + sNx*sNy*max1*act2
./pkg/exf/exf_bulkformulae.F 225 EXF_BULKFORMULAE 
     &         + sNx*sNy*max1*max2*act3
./pkg/exf/exf_bulkformulae.F 226 EXF_BULKFORMULAE 
     &         + sNx*sNy*max1*max2*max3*act4
./pkg/exf/exf_bulkformulae.F 266 EXF_BULKFORMULAE 
     &                  + niter_bulk*sNx*sNy*max1*act2
./pkg/exf/exf_bulkformulae.F 267 EXF_BULKFORMULAE 
     &                  + niter_bulk*sNx*sNy*max1*max2*act3
./pkg/exf/exf_bulkformulae.F 268 EXF_BULKFORMULAE 
     &                  + niter_bulk*sNx*sNy*max1*max2*max3*act4
./pkg/exf/exf_mapfields.F 100 EXF_MAPFIELDS 
          max1 = myBxHi(myThid) - myBxLo(myThid) + 1
./pkg/exf/exf_mapfields.F 106 EXF_MAPFIELDS 
          ikey = (act1 + 1) + act2*max1
./pkg/exf/exf_mapfields.F 107 EXF_MAPFIELDS 
     &                      + act3*max1*max2
./pkg/exf/exf_mapfields.F 108 EXF_MAPFIELDS 
     &                      + act4*max1*max2*max3
./pkg/ptracers/ptracers_integrate.F 105 PTRACERS_INTEGRATE 
          max1 = myBxHi(myThid) - myBxLo(myThid) + 1
./pkg/ptracers/ptracers_integrate.F 113 PTRACERS_INTEGRATE 
     &                      + act2*max0*max1
./pkg/ptracers/ptracers_integrate.F 114 PTRACERS_INTEGRATE 
     &                      + act3*max0*max1*max2
./pkg/ptracers/ptracers_integrate.F 115 PTRACERS_INTEGRATE 
     &                      + act4*max0*max1*max2*max3
./pkg/ptracers/ptracers_implicit.F 69 PTRACERS_IMPLICIT 
          max1 = myBxHi(myThid) - myBxLo(myThid) + 1
./pkg/ptracers/ptracers_implicit.F 77 PTRACERS_IMPLICIT 
     &                      + act2*max0*max1
./pkg/ptracers/ptracers_implicit.F 78 PTRACERS_IMPLICIT 
     &                      + act3*max0*max1*max2
./pkg/ptracers/ptracers_implicit.F 79 PTRACERS_IMPLICIT 
     &                      + act4*max0*max1*max2*max3
./pkg/ptracers/ptracers_advection.F 61 PTRACERS_ADVECTION 
          max1 = myBxHi(myThid) - myBxLo(myThid) + 1
./pkg/ptracers/ptracers_advection.F 69 PTRACERS_ADVECTION 
     &                      + act2*max0*max1
./pkg/ptracers/ptracers_advection.F 70 PTRACERS_ADVECTION 
     &                      + act3*max0*max1*max2
./pkg/ptracers/ptracers_advection.F 71 PTRACERS_ADVECTION 
     &                      + act4*max0*max1*max2*max3
./pkg/gmredi/gmredi_slope_psi.F 70 GMREDI_SLOPE_PSI 
      max1 = myBxHi(myThid) - myBxLo(myThid) + 1
./pkg/gmredi/gmredi_slope_psi.F 76 GMREDI_SLOPE_PSI 
      igmkey = (act1 + 1) + act2*max1
./pkg/gmredi/gmredi_slope_psi.F 77 GMREDI_SLOPE_PSI 
     &                    + act3*max1*max2
./pkg/gmredi/gmredi_slope_psi.F 78 GMREDI_SLOPE_PSI 
     &                    + act4*max1*max2*max3
./pkg/gmredi/gmredi_rtransport.F 61 GMREDI_RTRANSPORT 
          max1 = myBxHi(myThid) - myBxLo(myThid) + 1
./pkg/gmredi/gmredi_rtransport.F 69 GMREDI_RTRANSPORT 
     &                      + act2*max0*max1
./pkg/gmredi/gmredi_rtransport.F 70 GMREDI_RTRANSPORT 
     &                      + act3*max0*max1*max2
./pkg/gmredi/gmredi_rtransport.F 71 GMREDI_RTRANSPORT 
     &                      + act4*max0*max1*max2*max3
./pkg/gmredi/gmredi_xtransport.F 65 GMREDI_XTRANSPORT 
          max1 = myBxHi(myThid) - myBxLo(myThid) + 1
./pkg/gmredi/gmredi_xtransport.F 73 GMREDI_XTRANSPORT 
     &                      + act2*max0*max1
./pkg/gmredi/gmredi_xtransport.F 74 GMREDI_XTRANSPORT 
     &                      + act3*max0*max1*max2
./pkg/gmredi/gmredi_xtransport.F 75 GMREDI_XTRANSPORT 
     &                      + act4*max0*max1*max2*max3
./pkg/gmredi/gmredi_calc_tensor.F 78 GMREDI_CALC_TENSOR 
          max1 = myBxHi(myThid) - myBxLo(myThid) + 1
./pkg/gmredi/gmredi_calc_tensor.F 84 GMREDI_CALC_TENSOR 
          igmkey = (act1 + 1) + act2*max1
./pkg/gmredi/gmredi_calc_tensor.F 85 GMREDI_CALC_TENSOR 
     &                      + act3*max1*max2
./pkg/gmredi/gmredi_calc_tensor.F 86 GMREDI_CALC_TENSOR 
     &                      + act4*max1*max2*max3
./pkg/gmredi/gmredi_slope_limit.F 74 GMREDI_SLOPE_LIMIT 
      max1 = myBxHi(myThid) - myBxLo(myThid) + 1
./pkg/gmredi/gmredi_slope_limit.F 80 GMREDI_SLOPE_LIMIT 
      ikey = (act1 + 1) + act2*max1
./pkg/gmredi/gmredi_slope_limit.F 81 GMREDI_SLOPE_LIMIT 
     &                  + act3*max1*max2
./pkg/gmredi/gmredi_slope_limit.F 82 GMREDI_SLOPE_LIMIT 
     &                  + act4*max1*max2*max3
./pkg/gmredi/gmredi_calc_psi_b.F 59 GMREDI_CALC_PSI_B 
          max1 = myBxHi(myThid) - myBxLo(myThid) + 1
./pkg/gmredi/gmredi_calc_psi_b.F 65 GMREDI_CALC_PSI_B 
          igmkey = (act1 + 1) + act2*max1
./pkg/gmredi/gmredi_calc_psi_b.F 66 GMREDI_CALC_PSI_B 
     &                        + act3*max1*max2
./pkg/gmredi/gmredi_calc_psi_b.F 67 GMREDI_CALC_PSI_B 
     &                        + act4*max1*max2*max3
./pkg/gmredi/gmredi_ytransport.F 65 GMREDI_YTRANSPORT 
          max1 = myBxHi(myThid) - myBxLo(myThid) + 1
./pkg/gmredi/gmredi_ytransport.F 73 GMREDI_YTRANSPORT 
     &                      + act2*max0*max1
./pkg/gmredi/gmredi_ytransport.F 74 GMREDI_YTRANSPORT 
     &                      + act3*max0*max1*max2
./pkg/gmredi/gmredi_ytransport.F 75 GMREDI_YTRANSPORT 
     &                      + act4*max0*max1*max2*max3
./pkg/mom_fluxform/mom_fluxform.F 166 MOM_FLUXFORM 
          max1 = myBxHi(myThid) - myBxLo(myThid) + 1
./pkg/mom_fluxform/mom_fluxform.F 174 MOM_FLUXFORM 
     &                    + act2*max0*max1
./pkg/mom_fluxform/mom_fluxform.F 175 MOM_FLUXFORM 
     &                    + act3*max0*max1*max2
./pkg/mom_fluxform/mom_fluxform.F 176 MOM_FLUXFORM 
     &                    + act4*max0*max1*max2*max3
./pkg/autodiff/tamc.h 131 NO PROCEDURE 
      INTEGER max0, max1, max2, max3
./verification/global_ocean.90x40x15/code_ad_vecinv/tamc.h 119 NO PROCEDURE 
      INTEGER max0, max1, max2, max3
./verification/global_ocean.90x40x15/code_ad_nlfs/tamc.h 119 NO PROCEDURE 
      INTEGER max0, max1, max2, max3
./verification/global_ocean.90x40x15/code_ad/tamc.h 119 NO PROCEDURE 
      INTEGER max0, max1, max2, max3
./verification/tutorial_tracer_adjsens/code_ad/tamc.h 125 NO PROCEDURE 
      INTEGER max0, max1, max2, max3
./verification/hs94.1x64x5/code_ad/tamc.h 115 NO PROCEDURE 
      INTEGER max0, max1, max2, max3
./verification/natl_box_adjoint/code_seaice/tamc.h 121 NO PROCEDURE 
      INTEGER max0, max1, max2, max3
./verification/natl_box_adjoint/code/tamc.h 120 NO PROCEDURE 
      INTEGER max0, max1, max2, max3
./verification/natl_box_adjoint/code_bulk/tamc.h 123 NO PROCEDURE 
      INTEGER max0, max1, max2, max3
./verification/OpenAD/code_ad_openad/tamc.h 119 NO PROCEDURE 
      INTEGER max0, max1, max2, max3
./verification/OpenAD/code_ad/tamc.h 119 NO PROCEDURE 
      INTEGER max0, max1, max2, max3
./model/src/dynamics.F 273 DYNAMICS 
          max1 = myBxHi(myThid) - myBxLo(myThid) + 1
./model/src/dynamics.F 279 DYNAMICS 
          idynkey = (act1 + 1) + act2*max1
./model/src/dynamics.F 280 DYNAMICS 
     &                      + act3*max1*max2
./model/src/dynamics.F 281 DYNAMICS 
     &                      + act4*max1*max2*max3
./verification/global2x2_tot/code/tamc.h 114 NO PROCEDURE 
      INTEGER max0, max1, max2, max3
./verification/front_relax/code_ad/tamc.h 116 NO PROCEDURE 
      INTEGER max0, max1, max2, max3
./verification/global_ocean_ebm/code_ad/tamc.h 119 NO PROCEDURE 
      INTEGER max0, max1, max2, max3
./verification/lab_sea/code_ad_seaice_only/tamc.h 121 NO PROCEDURE 
      INTEGER max0, max1, max2, max3
./verification/lab_sea/code_ad_seaice_ocean/tamc.h 121 NO PROCEDURE 
      INTEGER max0, max1, max2, max3
./model/src/calc_phi_hyd.F 108 CALC_PHI_HYD 
          max1 = myBxHi(myThid) - myBxLo(myThid) + 1
./model/src/calc_phi_hyd.F 118 CALC_PHI_HYD 
          ikey = (act1 + 1) + act2*max1
./model/src/calc_phi_hyd.F 119 CALC_PHI_HYD 
     &                      + act3*max1*max2
./model/src/calc_phi_hyd.F 120 CALC_PHI_HYD 
     &                      + act4*max1*max2*max3
./verification/global1x1_tot/code_seaice_adj/tamc.h 118 NO PROCEDURE 
      INTEGER max0, max1, max2, max3
./model/src/thermodynamics.F 212 THERMODYNAMICS 
          max1 = myBxHi(myThid) - myBxLo(myThid) + 1
./model/src/thermodynamics.F 218 THERMODYNAMICS 
          itdkey = (act1 + 1) + act2*max1
./model/src/thermodynamics.F 219 THERMODYNAMICS 
     &                      + act3*max1*max2
./model/src/thermodynamics.F 220 THERMODYNAMICS 
     &                      + act4*max1*max2*max3
./verification/global1x1_tot/code/tamc.h 118 NO PROCEDURE 
      INTEGER max0, max1, max2, max3
./model/src/momentum_correction_step.F 154 MOMENTUM_CORRECTION_STEP 
          max1 = myBxHi(myThid) - myBxLo(myThid) + 1
./model/src/momentum_correction_step.F 160 MOMENTUM_CORRECTION_STEP 
          idynkey = (act1 + 1) + act2*max1
./model/src/momentum_correction_step.F 161 MOMENTUM_CORRECTION_STEP 
     &                      + act3*max1*max2
./model/src/momentum_correction_step.F 162 MOMENTUM_CORRECTION_STEP 
     &                      + act4*max1*max2*max3
./verification/global1x1_tot/code_taueddy/tamc.h 112 NO PROCEDURE 
      INTEGER max0, max1, max2, max3
./verification/bottom_ctrl_5x5/code_ad/tamc.h 123 NO PROCEDURE 
      INTEGER max0, max1, max2, max3
./model/src/convective_adjustment.F 84 CONVECTIVE_ADJUSTMENT 
          max1 = myBxHi(myThid) - myBxLo(myThid) + 1
./model/src/convective_adjustment.F 90 CONVECTIVE_ADJUSTMENT 
          ikey = (act1 + 1) + act2*max1
./model/src/convective_adjustment.F 91 CONVECTIVE_ADJUSTMENT 
     &                      + act3*max1*max2
./model/src/convective_adjustment.F 92 CONVECTIVE_ADJUSTMENT 
     &                      + act4*max1*max2*max3
./model/src/calc_gt.F 113 CALC_GT 
          max1 = myBxHi(myThid) - myBxLo(myThid) + 1
./model/src/calc_gt.F 119 CALC_GT 
          itdkey = (act1 + 1) + act2*max1
./model/src/calc_gt.F 120 CALC_GT 
     &                      + act3*max1*max2
./model/src/calc_gt.F 121 CALC_GT 
     &                      + act4*max1*max2*max3
./model/src/do_oceanic_phys.F 236 DO_OCEANIC_PHYS 
          max1 = myBxHi(myThid) - myBxLo(myThid) + 1
./model/src/do_oceanic_phys.F 242 DO_OCEANIC_PHYS 
          itdkey = (act1 + 1) + act2*max1
./model/src/do_oceanic_phys.F 243 DO_OCEANIC_PHYS 
     &                      + act3*max1*max2
./model/src/do_oceanic_phys.F 244 DO_OCEANIC_PHYS 
     &                      + act4*max1*max2*max3
./model/src/convective_adjustment_ini.F 89 CONVECTIVE_ADJUSTMENT_INI 
          max1 = myBxHi(myThid) - myBxLo(myThid) + 1
./model/src/convective_adjustment_ini.F 95 CONVECTIVE_ADJUSTMENT_INI 
          ikey = (act1 + 1) + act2*max1
./model/src/convective_adjustment_ini.F 96 CONVECTIVE_ADJUSTMENT_INI 
     &                      + act3*max1*max2
./model/src/convective_adjustment_ini.F 97 CONVECTIVE_ADJUSTMENT_INI 
     &                      + act4*max1*max2*max3
./model/src/cg2d_nsa.F 134 CG2D_NSA 
          max1 = nTx*nTy
./model/src/cg2d_nsa.F 136 CG2D_NSA 
          ikey = (act1 + 1) + act2*max1
./model/src/calc_gs.F 114 CALC_GS 
          max1 = myBxHi(myThid) - myBxLo(myThid) + 1
./model/src/calc_gs.F 120 CALC_GS 
          itdkey = (act1 + 1) + act2*max1
./model/src/calc_gs.F 121 CALC_GS 
     &                      + act3*max1*max2
./model/src/calc_gs.F 122 CALC_GS 
     &                      + act4*max1*max2*max3
./pkg/kpp/kpp_calc.F 205 KPP_CALC 
          max1 = myBxHi(myThid) - myBxLo(myThid) + 1
./pkg/kpp/kpp_calc.F 211 KPP_CALC 
          ikppkey = (act1 + 1) + act2*max1
./pkg/kpp/kpp_calc.F 212 KPP_CALC 
     &                      + act3*max1*max2
./pkg/kpp/kpp_calc.F 213 KPP_CALC 
     &                      + act4*max1*max2*max3
./pkg/mom_common/mom_calc_hfacz.F 82 MOM_CALC_HFACZ 
          max1 = myBxHi(myThid) - myBxLo(myThid) + 1
./pkg/mom_common/mom_calc_hfacz.F 88 MOM_CALC_HFACZ 
          ikey = (act1 + 1) + act2*max1
./pkg/mom_common/mom_calc_hfacz.F 89 MOM_CALC_HFACZ 
     &                      + act3*max1*max2
./pkg/mom_common/mom_calc_hfacz.F 90 MOM_CALC_HFACZ 
     &                      + act4*max1*max2*max3
./pkg/obcs/obcs_sponge.F 454 OBCS_SPONGE_T 
          max1 = myBxHi(myThid) - myBxLo(myThid) + 1
./pkg/obcs/obcs_sponge.F 460 OBCS_SPONGE_T 
          ikey = (act1 + 1) + act2*max1
./pkg/obcs/obcs_sponge.F 461 OBCS_SPONGE_T 
     &                      + act3*max1*max2
./pkg/obcs/obcs_sponge.F 462 OBCS_SPONGE_T 
     &                      + act4*max1*max2*max3
./pkg/obcs/obcs_sponge.F 696 OBCS_SPONGE_S 
          max1 = myBxHi(myThid) - myBxLo(myThid) + 1
./pkg/obcs/obcs_sponge.F 702 OBCS_SPONGE_S 
          ikey = (act1 + 1) + act2*max1
./pkg/obcs/obcs_sponge.F 703 OBCS_SPONGE_S 
     &                      + act3*max1*max2
./pkg/obcs/obcs_sponge.F 704 OBCS_SPONGE_S 
     &                      + act4*max1*max2*max3
./pkg/ecco/cost_tau_eddy.F 55 COST_TAU_EDDY 
        max1 = myBxHi(myThid) - myBxLo(myThid) + 1
./pkg/ecco/cost_tau_eddy.F 59 COST_TAU_EDDY 
        ikey = (act1 + 1) + act2*max1
./pkg/ecco/cost_tau_eddy.F 60 COST_TAU_EDDY 
     &                    + act3*max1*max2
./pkg/ecco/cost_drifter.F 132 COST_DRIFTER 
          max1 = myBxHi(myThid) - myBxLo(myThid) + 1
./pkg/ecco/cost_drifter.F 138 COST_DRIFTER 
          ikey = (act1 + 1) + act2*max1
./pkg/ecco/cost_drifter.F 139 COST_DRIFTER 
     &                      + act3*max1*max2
./pkg/ecco/cost_drifter.F 140 COST_DRIFTER 
     &                      + act4*max1*max2*max3
./pkg/thsice/thsice_main.F 90 THSICE_MAIN 
          max1 = myBxHi(myThid) - myBxLo(myThid) + 1
./pkg/thsice/thsice_main.F 96 THSICE_MAIN 
          iicekey = (act1 + 1) + act2*max1
./pkg/thsice/thsice_main.F 97 THSICE_MAIN 
     &                         + act3*max1*max2
./pkg/thsice/thsice_main.F 98 THSICE_MAIN 
     &                         + act4*max1*max2*max3
./pkg/mom_vecinv/mom_vecinv.F 127 MOM_VECINV 
          max1 = myBxHi(myThid) - myBxLo(myThid) + 1
./pkg/mom_vecinv/mom_vecinv.F 135 MOM_VECINV 
     &                    + act2*max0*max1
./pkg/mom_vecinv/mom_vecinv.F 136 MOM_VECINV 
     &                    + act3*max0*max1*max2
./pkg/mom_vecinv/mom_vecinv.F 137 MOM_VECINV 
     &                    + act4*max0*max1*max2*max3
./pkg/generic_advdiff/gad_advection.F 162 GAD_ADVECTION 
          max1 = myBxHi(myThid) - myBxLo(myThid) + 1
./pkg/generic_advdiff/gad_advection.F 170 GAD_ADVECTION 
     &                      + act2*max0*max1
./pkg/generic_advdiff/gad_advection.F 171 GAD_ADVECTION 
     &                      + act3*max0*max1*max2
./pkg/generic_advdiff/gad_advection.F 172 GAD_ADVECTION 
     &                      + act4*max0*max1*max2*max3
./pkg/seaice/groatb.F 64 GROATB 
          max1 = myBxHi(myThid) - myBxLo(myThid) + 1
./pkg/seaice/groatb.F 70 GROATB 
          iicekey = (act1 + 1) + act2*max1
./pkg/seaice/groatb.F 71 GROATB 
     &                      + act3*max1*max2
./pkg/seaice/groatb.F 72 GROATB 
     &                      + act4*max1*max2*max3
./pkg/seaice/seaice_advection.F 144 SEAICE_ADVECTION 
          max1 = myBxHi(myThid) - myBxLo(myThid) + 1
./pkg/seaice/seaice_advection.F 152 SEAICE_ADVECTION 
     &                      + act2*max0*max1
./pkg/seaice/seaice_advection.F 153 SEAICE_ADVECTION 
     &                      + act3*max0*max1*max2
./pkg/seaice/seaice_advection.F 154 SEAICE_ADVECTION 
     &                      + act4*max0*max1*max2*max3
./pkg/seaice/growth.F 166 GROWTH 
          max1 = myBxHi(myThid) - myBxLo(myThid) + 1
./pkg/seaice/growth.F 172 GROWTH 
          iicekey = (act1 + 1) + act2*max1
./pkg/seaice/growth.F 173 GROWTH 
     &                      + act3*max1*max2
./pkg/seaice/growth.F 174 GROWTH 
     &                      + act4*max1*max2*max3
./pkg/seaice/growth.F 67 GROWTH 
          max1 = myBxHi(myThid) - myBxLo(myThid) + 1
./pkg/seaice/growth.F 73 GROWTH 
          iicekey = (act1 + 1) + act2*max1
./pkg/seaice/growth.F 74 GROWTH 
     &                      + act3*max1*max2
./pkg/seaice/growth.F 75 GROWTH 
     &                      + act4*max1*max2*max3