Symbol Description Uses
jg 25


File Line number Procedure Code
./pkg/fizhi/fizhi_readwrite_vegtiles.F 49 FIZHI_WRITE_VEGTILES 
      integer ig,jg,tn,iunit
./pkg/cost/cost_accumulate_mean.F 34 COST_ACCUMULATE_MEAN 
      integer ig, jg
./pkg/cost/cost_tracer.F 44 COST_TRACER 
      integer ig, jg
./pkg/cost/cost_test.F 36 COST_TEST 
      integer ig, jg
./pkg/cost/cost_test.F 65 COST_TEST 
          jg = myYGlobalLo-1+(bj-1)*sNy+j
./pkg/cost/cost_test.F 69 COST_TEST 
            if ((ig .eq. iLocOut) .and. (jg .eq. jLocOut)) then
./pkg/cost/cost_test.F 71 COST_TEST 
     &              'COST    ',ig,jg,kLocOut,' TILE ',i,j,bi,bj
./pkg/cost/cost_test.F 74 COST_TEST 
               print *, 'ph-cost ', ig, jg, kLocOut,
./pkg/cost/cost_vector.F 31 COST_VECTOR 
      integer ig, jg
./pkg/cost/cost_vector.F 59 COST_VECTOR 
         jg = myYGlobalLo-1+(bj-1)*sNy+j
./pkg/cost/cost_vector.F 60 COST_VECTOR 
         if (jg .eq. jsec) then
./pkg/cost/cost_atlantic_heat.F 139 COST_ATLANTIC_HEAT 
            jg = myYGlobalLo-1+(bj-1)*sNy+j
./pkg/cost/cost_atlantic_heat.F 141 COST_ATLANTIC_HEAT 
            if ((jg .ge. jsecbeg) .and. (jg .le. jsecend)) then
./pkg/cost/cost_atlantic_heat.F 31 COST_ATLANTIC_HEAT 
      integer ig, jg
./pkg/cost/cost_atlantic_heat.F 86 COST_ATLANTIC_HEAT 
         jg = myYGlobalLo-1+(bj-1)*sNy+j
./pkg/cost/cost_atlantic_heat.F 87 COST_ATLANTIC_HEAT 
         if (jg .eq. jsec) then
./pkg/ctrl/ctrl_pack.F 70 CTRL_PACK 
      integer ig,jg