Symbol Description Uses
max1 118


File Line number Procedure Code
./pkg/obcs/obcs_sponge.F 453 OBCS_SPONGE_T 
          max1 = myBxHi(myThid) - myBxLo(myThid) + 1
./pkg/obcs/obcs_sponge.F 459 OBCS_SPONGE_T 
          ikey = (act1 + 1) + act2*max1
./pkg/obcs/obcs_sponge.F 460 OBCS_SPONGE_T 
     &                      + act3*max1*max2
./pkg/obcs/obcs_sponge.F 461 OBCS_SPONGE_T 
     &                      + act4*max1*max2*max3
./pkg/obcs/obcs_sponge.F 695 OBCS_SPONGE_S 
          max1 = myBxHi(myThid) - myBxLo(myThid) + 1
./pkg/obcs/obcs_sponge.F 701 OBCS_SPONGE_S 
          ikey = (act1 + 1) + act2*max1
./pkg/obcs/obcs_sponge.F 702 OBCS_SPONGE_S 
     &                      + act3*max1*max2
./pkg/obcs/obcs_sponge.F 703 OBCS_SPONGE_S 
     &                      + act4*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
./pkg/autodiff/tamc.h 131 NO PROCEDURE 
      INTEGER max0, max1, max2, max3
./model/src/do_oceanic_phys.F 160 DO_OCEANIC_PHYS 
          max1 = myBxHi(myThid) - myBxLo(myThid) + 1
./model/src/do_oceanic_phys.F 166 DO_OCEANIC_PHYS 
          itdkey = (act1 + 1) + act2*max1
./model/src/do_oceanic_phys.F 167 DO_OCEANIC_PHYS 
     &                      + act3*max1*max2
./model/src/do_oceanic_phys.F 168 DO_OCEANIC_PHYS 
     &                      + act4*max1*max2*max3
./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/ecco/cost_tau_eddy.F 53 COST_TAU_EDDY 
          max1 = myBxHi(myThid) - myBxLo(myThid) + 1
./pkg/ecco/cost_tau_eddy.F 57 COST_TAU_EDDY 
          ikey = (act1 + 1) + act2*max1
./pkg/ecco/cost_tau_eddy.F 58 COST_TAU_EDDY 
     &                      + act3*max1*max2
./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
./verification/natl_box_adjoint/code_seaice/tamc.h 121 NO PROCEDURE 
      INTEGER max0, max1, max2, max3
./verification/natl_box_adjoint/code_bulk/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/hs94.1x64x5/code_ad/tamc.h 115 NO PROCEDURE 
      INTEGER max0, max1, max2, max3
./verification/global1x1_tot/code/tamc.h 118 NO PROCEDURE 
      INTEGER max0, max1, max2, max3
./verification/global_ocean_ebm/code_ad/tamc.h 119 NO PROCEDURE 
      INTEGER max0, max1, max2, max3
./verification/front_relax/code_ad/tamc.h 116 NO PROCEDURE 
      INTEGER max0, max1, max2, max3
./verification/global2x2_tot/code/tamc.h 114 NO PROCEDURE 
      INTEGER max0, max1, max2, max3
./verification/carbon/code_ad/tamc.h 121 NO PROCEDURE 
      INTEGER max0, max1, max2, max3
./verification/global_ocean.90x40x15/code_ad/tamc.h 119 NO PROCEDURE 
      INTEGER max0, max1, max2, max3
./verification/global_ocean.90x40x15/code_ad_vecinv/tamc.h 119 NO PROCEDURE 
      INTEGER max0, max1, max2, max3
./model/src/thermodynamics.F 207 THERMODYNAMICS 
          max1 = myBxHi(myThid) - myBxLo(myThid) + 1
./model/src/thermodynamics.F 213 THERMODYNAMICS 
          itdkey = (act1 + 1) + act2*max1
./model/src/thermodynamics.F 214 THERMODYNAMICS 
     &                      + act3*max1*max2
./model/src/thermodynamics.F 215 THERMODYNAMICS 
     &                      + 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/dynamics.F 239 DYNAMICS 
          max1 = myBxHi(myThid) - myBxLo(myThid) + 1
./model/src/dynamics.F 245 DYNAMICS 
          idynkey = (act1 + 1) + act2*max1
./model/src/dynamics.F 246 DYNAMICS 
     &                      + act3*max1*max2
./model/src/dynamics.F 247 DYNAMICS 
     &                      + act4*max1*max2*max3
./pkg/ptracers/ptracers_implicit.F 68 PTRACERS_IMPLICIT 
          max1 = myBxHi(myThid) - myBxLo(myThid) + 1
./pkg/ptracers/ptracers_implicit.F 76 PTRACERS_IMPLICIT 
     &                      + act2*max0*max1
./pkg/ptracers/ptracers_implicit.F 77 PTRACERS_IMPLICIT 
     &                      + act3*max0*max1*max2
./pkg/ptracers/ptracers_implicit.F 78 PTRACERS_IMPLICIT 
     &                      + act4*max0*max1*max2*max3
./pkg/kpp/kpp_calc.F 201 KPP_CALC 
          max1 = myBxHi(myThid) - myBxLo(myThid) + 1
./pkg/kpp/kpp_calc.F 207 KPP_CALC 
          ikppkey = (act1 + 1) + act2*max1
./pkg/kpp/kpp_calc.F 208 KPP_CALC 
     &                      + act3*max1*max2
./pkg/kpp/kpp_calc.F 209 KPP_CALC 
     &                      + act4*max1*max2*max3
./pkg/generic_advdiff/gad_advection.F 154 GAD_ADVECTION 
          max1 = myBxHi(myThid) - myBxLo(myThid) + 1
./pkg/generic_advdiff/gad_advection.F 162 GAD_ADVECTION 
     &                      + act2*max0*max1
./pkg/generic_advdiff/gad_advection.F 163 GAD_ADVECTION 
     &                      + act3*max0*max1*max2
./pkg/generic_advdiff/gad_advection.F 164 GAD_ADVECTION 
     &                      + act4*max0*max1*max2*max3
./pkg/exf/exf_bulkformulae.F 231 EXF_BULKFORMULAE 
               max1 = myBxHi(myThid) - myBxLo(myThid) + 1
./pkg/exf/exf_bulkformulae.F 241 EXF_BULKFORMULAE 
     &              + sNx*sNy*max1*act2
./pkg/exf/exf_bulkformulae.F 242 EXF_BULKFORMULAE 
     &              + sNx*sNy*max1*max2*act3
./pkg/exf/exf_bulkformulae.F 243 EXF_BULKFORMULAE 
     &              + sNx*sNy*max1*max2*max3*act4
./pkg/exf/exf_bulkformulae.F 369 EXF_BULKFORMULAE 
     &                  + niter_bulk*sNx*sNy*max1*act2
./pkg/exf/exf_bulkformulae.F 370 EXF_BULKFORMULAE 
     &                  + niter_bulk*sNx*sNy*max1*max2*act3
./pkg/exf/exf_bulkformulae.F 371 EXF_BULKFORMULAE 
     &                  + niter_bulk*sNx*sNy*max1*max2*max3*act4
./pkg/exf/exf_mapfields.F 102 EXF_MAPFIELDS 
          ikey = (act1 + 1) + act2*max1
./pkg/exf/exf_mapfields.F 103 EXF_MAPFIELDS 
     &                      + act3*max1*max2
./pkg/exf/exf_mapfields.F 104 EXF_MAPFIELDS 
     &                      + act4*max1*max2*max3
./pkg/exf/exf_mapfields.F 96 EXF_MAPFIELDS 
          max1 = myBxHi(myThid) - myBxLo(myThid) + 1
./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/growth.F 162 GROWTH 
          max1 = myBxHi(myThid) - myBxLo(myThid) + 1
./pkg/seaice/growth.F 168 GROWTH 
          iicekey = (act1 + 1) + act2*max1
./pkg/seaice/growth.F 169 GROWTH 
     &                      + act3*max1*max2
./pkg/seaice/growth.F 170 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
./pkg/gmredi/gmredi_slope_psi.F 72 GMREDI_SLOPE_PSI 
      max1 = myBxHi(myThid) - myBxLo(myThid) + 1
./pkg/gmredi/gmredi_slope_psi.F 78 GMREDI_SLOPE_PSI 
      igmkey = (act1 + 1) + act2*max1
./pkg/gmredi/gmredi_slope_psi.F 79 GMREDI_SLOPE_PSI 
     &                    + act3*max1*max2
./pkg/gmredi/gmredi_slope_psi.F 80 GMREDI_SLOPE_PSI 
     &                    + act4*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_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_calc_tensor.F 69 GMREDI_CALC_TENSOR 
          max1 = myBxHi(myThid) - myBxLo(myThid) + 1
./pkg/gmredi/gmredi_calc_tensor.F 75 GMREDI_CALC_TENSOR 
          igmkey = (act1 + 1) + act2*max1
./pkg/gmredi/gmredi_calc_tensor.F 76 GMREDI_CALC_TENSOR 
     &                      + act3*max1*max2
./pkg/gmredi/gmredi_calc_tensor.F 77 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_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/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
./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