Symbol Description Uses
jg 74


File Line number Procedure Code
./pkg/fizhi/fizhi_readwrite_vegtiles.F 321 FIZHI_READ_VEGTILES 
      integer ig,jg,tn,iunit
./pkg/fizhi/fizhi_readwrite_vegtiles.F 49 FIZHI_WRITE_VEGTILES 
      integer ig,jg,tn,iunit
./pkg/seaice/seaice_cost_export.F 33 SEAICE_COST_EXPORT 
      integer ig, jg
./pkg/seaice/seaice_cost_export.F 52 SEAICE_COST_EXPORT 
            jg = myYGlobalLo-1+(bj-1)*sNy+j
./pkg/seaice/seaice_cost_export.F 53 SEAICE_COST_EXPORT 
            if ((jg .ge. jsecbeg) .and. (jg .le. jsecend)) then
./pkg/streamice/streamice_cost_surf_accum.F 50 STREAMICE_COST_SURF_ACCUM 
      integer ig, jg
./verification/OpenAD/code_ad_singlelayer/cost_test.F 36 COST_TEST 
      integer ig, jg
./verification/OpenAD/code_ad_singlelayer/cost_test.F 65 COST_TEST 
          jg = myYGlobalLo-1+(bj-1)*sNy+j
./verification/OpenAD/code_ad_singlelayer/cost_test.F 73 COST_TEST 
               print *, 'ph-cost: objf_test ', ig, jg,
./verification/bottom_ctrl_5x5/code_ad/cost_test.F 33 COST_TEST 
      integer ig, jg
./verification/bottom_ctrl_5x5/code_ad/cost_test.F 50 COST_TEST 
         jg = myYGlobalLo-1+(bj-1)*sNy+J
./verification/bottom_ctrl_5x5/code_ad/cost_test.F 51 COST_TEST 
         IF ( jg .ge. iysecmin .and. jg .le. iysecmax ) THEN
./verification/global_ocean.cs32x15/code_ad/cost_test.F 34 COST_TEST 
      integer ig, jg
./verification/global_ocean.cs32x15/code_ad/cost_test.F 66 COST_TEST 
          jg = myYGlobalLo-1+(bj-1)*sNy+j
./verification/global_ocean.cs32x15/code_ad/cost_test.F 71 COST_TEST 
            if ((ig .eq. iLocOut) .and. (jg .eq. jLocOut)) then
./verification/global_ocean.cs32x15/code_ad/cost_test.F 73 COST_TEST 
     &              'COST    ',ig,jg,kLocOut,' TILE ',i,j,bi,bj
./verification/global_ocean.cs32x15/code_ad/cost_test.F 76 COST_TEST 
               print *, 'ph-cost ', ig, jg, kLocOut,
./verification/halfpipe_streamice/code_ad/cost_test.F 42 COST_TEST 
      integer ig, jg
./verification/halfpipe_streamice/code_oad/cost_test.F 42 COST_TEST 
      integer ig, jg
./verification/hs94.1x64x5/code_ad/cost_test.F 34 COST_TEST 
      integer ig, jg
./verification/hs94.1x64x5/code_ad/cost_test.F 63 COST_TEST 
          jg = myYGlobalLo-1+(bj-1)*sNy+j
./verification/hs94.1x64x5/code_ad/cost_test.F 67 COST_TEST 
            if ((jg .gt.30) .and. (jg .lt.40)) then
./verification/hs94.1x64x5/code_ad/cost_test.F 72 COST_TEST 
     &              ig,jg,kLocOut,' TILE ',i,j,bi,bj
./verification/hs94.1x64x5/code_oad/cost_test.F 34 COST_TEST 
      integer ig, jg
./verification/hs94.1x64x5/code_oad/cost_test.F 63 COST_TEST 
          jg = myYGlobalLo-1+(bj-1)*sNy+j
./verification/hs94.1x64x5/code_oad/cost_test.F 67 COST_TEST 
            if ((jg .gt.30) .and. (jg .lt.40)) then
./verification/hs94.1x64x5/code_oad/cost_test.F 72 COST_TEST 
     &              ig,jg,kLocOut,' TILE ',i,j,bi,bj
./verification/isomip/code_ad/cost_test.F 34 COST_TEST 
      integer ig, jg
./verification/isomip/code_ad/cost_test.F 66 COST_TEST 
          jg = myYGlobalLo-1+(bj-1)*sNy+j
./verification/isomip/code_ad/cost_test.F 71 COST_TEST 
            if ((ig .eq. iLocOut) .and. (jg .eq. jLocOut)) then
./verification/isomip/code_ad/cost_test.F 73 COST_TEST 
     &              'COST    ',ig,jg,kLocOut,' TILE ',i,j,bi,bj
./verification/isomip/code_ad/cost_test.F 76 COST_TEST 
               print *, 'ph-cost ', ig, jg, kLocOut,
./verification/isomip/code_oad/cost_test.F 34 COST_TEST 
      integer ig, jg
./verification/isomip/code_oad/cost_test.F 66 COST_TEST 
          jg = myYGlobalLo-1+(bj-1)*sNy+j
./verification/isomip/code_oad/cost_test.F 71 COST_TEST 
            if ((ig .eq. iLocOut) .and. (jg .eq. jLocOut)) then
./verification/isomip/code_oad/cost_test.F 73 COST_TEST 
     &              'COST    ',ig,jg,kLocOut,' TILE ',i,j,bi,bj
./verification/isomip/code_oad/cost_test.F 76 COST_TEST 
               print *, 'ph-cost ', ig, jg, kLocOut,
./verification/tutorial_global_oce_biogeo/code_ad/cost_tracer.F 45 COST_TRACER 
      integer ig, jg
./verification/tutorial_global_oce_biogeo/code_oad/cost_tracer.F 45 COST_TRACER 
      integer ig, jg
./pkg/admtlm/admtlm_model2dsvd.F 74 ADMTLM_MODEL2DSVD 
      integer ig,jg
./pkg/cost/cost_accumulate_mean.F 34 COST_ACCUMULATE_MEAN 
      integer ig, jg
./pkg/cost/cost_atlantic_heat.F 150 COST_ATLANTIC_HEAT 
            jg = myYGlobalLo-1+(bj-1)*sNy+j
./pkg/cost/cost_atlantic_heat.F 152 COST_ATLANTIC_HEAT 
            if ((jg .ge. jsecbeg) .and. (jg .le. jsecend)) then
./pkg/cost/cost_atlantic_heat.F 33 COST_ATLANTIC_HEAT 
      integer ig, jg
./pkg/cost/cost_atlantic_heat.F 89 COST_ATLANTIC_HEAT 
         jg = myYGlobalLo-1+(bj-1)*sNy+j
./pkg/cost/cost_atlantic_heat.F 90 COST_ATLANTIC_HEAT 
         if (jg .eq. jsec) then
./pkg/cost/cost_test.F 34 COST_TEST 
      integer ig, jg
./pkg/cost/cost_test.F 63 COST_TEST 
          jg = myYGlobalLo-1+(bj-1)*sNy+j
./pkg/cost/cost_test.F 68 COST_TEST 
            if ((ig .eq. iLocOut) .and. (jg .eq. jLocOut)) then
./pkg/cost/cost_test.F 70 COST_TEST 
     &              'COST    ',ig,jg,kLocOut,' TILE ',i,j,bi,bj
./pkg/cost/cost_test.F 73 COST_TEST 
               print *, 'ph-cost ', ig, jg, kLocOut,
./pkg/cost/cost_tracer.F 44 COST_TRACER 
      integer ig, jg
./pkg/cost/cost_vector.F 33 COST_VECTOR 
      integer ig, jg
./pkg/cost/cost_vector.F 61 COST_VECTOR 
         jg = myYGlobalLo-1+(bj-1)*sNy+j
./pkg/cost/cost_vector.F 62 COST_VECTOR 
         if (jg .eq. jsec) then
./pkg/ctrl/ctrl_pack.F 88 CTRL_PACK 
      integer ig,jg
./pkg/ebm/ebm_zonalmean.F 46 EBM_ZONALMEAN 
      INTEGER jg
./pkg/ebm/ebm_zonalmean.F 56 EBM_ZONALMEAN 
      DO jg = 1,Ny
./pkg/ebm/ebm_zonalmean.F 61 EBM_ZONALMEAN 
          j = jg + 1 - myYGlobalLo - (bj-1)*sNy
./pkg/ebm/ebm_zonalmean.F 72 EBM_ZONALMEAN 
        CALL GLOBAL_SUM_TILE_RL( tileSumMask, locSumMask(jg), myThid )
./pkg/ebm/ebm_zonalmean.F 73 EBM_ZONALMEAN 
        CALL GLOBAL_SUM_TILE_RL( tileSumSST,  locSumSST(jg),  myThid )
./pkg/ebm/ebm_zonalmean.F 82 EBM_ZONALMEAN 
        jg = myYGlobalLo + j-1 + (bj-1)*sNy
./pkg/ebm/ebm_zonalmean.F 86 EBM_ZONALMEAN 
        jg = MAX(MIN(jg,Ny),1)
./pkg/ebm/ebm_zonalmean.F 87 EBM_ZONALMEAN 
        CountX(j,bj) = locSumMask(jg)
./pkg/ebm/ebm_zonalmean.F 88 EBM_ZONALMEAN 
        ZonalMeanSST(j,bj) = locSumSST(jg)
./pkg/ecco/cost_averagesfields.F 740 COST_AVERAGESFIELDS 
           jg = myYGlobalLo-1+(bj-1)*sNy+j
./pkg/ecco/cost_averagesfields.F 743 COST_AVERAGESFIELDS 
            if ( jg.EQ.106 .AND. ig.GE.280 .AND. ig.LE.285 ) then
./pkg/ecco/cost_averagesfields.F 81 COST_AVERAGESFIELDS 
      integer ig,jg