Symbol Description Uses
local 67


File Line number Procedure Code
./pkg/mdsio/mdsio_readvector.F 318 MDSREADVECTOR 
        CALL SCATTER_VECTOR( narr,global,local,myThid )
./pkg/mdsio/mdsio_readvector.F 320 MDSREADVECTOR 
           CALL MDS_BUFFERTORS( local, arr, narr, .TRUE., myThid )
./pkg/mdsio/mdsio_readvector.F 322 MDSREADVECTOR 
           CALL MDS_BUFFERTORL( local, arr, narr, .TRUE., myThid )
./pkg/mdsio/mdsio_readvector.F 73 MDSREADVECTOR 
      _RL    local(narr)
./pkg/mdsio/mdsio_writevector.F 155 MDSWRITEVECTOR 
           CALL MDS_BUFFERTORS( local, arr, narr, .FALSE., myThid )
./pkg/mdsio/mdsio_writevector.F 157 MDSWRITEVECTOR 
           CALL MDS_BUFFERTORL( local, arr, narr, .FALSE., myThid )
./pkg/mdsio/mdsio_writevector.F 172 MDSWRITEVECTOR 
        CALL GATHER_VECTOR( lprint, narr, global, local, myThid )
./pkg/mdsio/mdsio_writevector.F 84 MDSWRITEVECTOR 
      _RL    local(narr)
./eesupp/src/gather_vector.F 18 GATHER_VECTOR 
      _RL     local(length)
./eesupp/src/gather_vector.F 37 GATHER_VECTOR 
         global(lG) = local(l)
./eesupp/src/gather_vector.F 55 GATHER_VECTOR 
            global(lG) = local(l)
./eesupp/src/gather_vector.F 6 GATHER_VECTOR 
      SUBROUTINE GATHER_VECTOR( lprint, length, global, local, myThid )
./eesupp/src/gather_vector.F 92 GATHER_VECTOR 
         CALL MPI_SEND (local, lbuff, MPI_DOUBLE_PRECISION,
./eesupp/src/gather_xz.F 16 GATHER_XZ 
      _RL     local(1-OLx:sNx+OLx,nSx,nSy)
./eesupp/src/gather_xz.F 37 GATHER_XZ 
                  global(iG) = local(i,bi,bj)
./eesupp/src/gather_xz.F 57 GATHER_XZ 
                     global(iG) = local(i,bi,bj)
./eesupp/src/gather_xz.F 6 GATHER_XZ 
      SUBROUTINE GATHER_XZ( global, local, myThid )
./eesupp/src/gather_xz.F 89 GATHER_XZ 
         CALL MPI_SEND (local, lbuff, MPI_DOUBLE_PRECISION,
./eesupp/src/gather_yz.F 16 GATHER_YZ 
      _RL     local(1-OLy:sNy+OLy,nSx,nSy)
./eesupp/src/gather_yz.F 37 GATHER_YZ 
                  global(jG) = local(j,bi,bj)
./eesupp/src/gather_yz.F 57 GATHER_YZ 
                     global(jG) = local(j,bi,bj)
./eesupp/src/gather_yz.F 6 GATHER_YZ 
      SUBROUTINE GATHER_YZ( global, local, myThid )
./eesupp/src/gather_yz.F 89 GATHER_YZ 
         CALL MPI_SEND (local, lbuff, MPI_DOUBLE_PRECISION,
./pkg/cheapaml/cheapaml_fields_load.F 117 CHEAPAML_FIELDS_LOAD 
            local=225.d0+dsolms*xinxx-float((jg-1))/float((ny-1))*
./pkg/cheapaml/cheapaml_fields_load.F 119 CHEAPAML_FIELDS_LOAD 
            if ( jG .le. 3 ) local = local + 200
./pkg/cheapaml/cheapaml_fields_load.F 120 CHEAPAML_FIELDS_LOAD 
                  Solar(i,j,bi,bj) = local
./pkg/cheapaml/cheapaml_fields_load.F 132 CHEAPAML_FIELDS_LOAD 
          local=solar(i,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F 133 CHEAPAML_FIELDS_LOAD 
          local=(2.d0*local/stefan)**(0.25d0)-273.16 _d 0
./pkg/cheapaml/cheapaml_fields_load.F 135 CHEAPAML_FIELDS_LOAD 
          local=local+bump
./pkg/cheapaml/cheapaml_fields_load.F 136 CHEAPAML_FIELDS_LOAD 
          TR(i,j,bi,bj) = local
./pkg/cheapaml/cheapaml_fields_load.F 148 CHEAPAML_FIELDS_LOAD 
                  local = Tr(i,j,bi,bj)+273.16d0
./pkg/cheapaml/cheapaml_fields_load.F 149 CHEAPAML_FIELDS_LOAD 
              ssqa = ssq0*exp( lath*(ssq1-ssq2/local)) / p0
./pkg/cheapaml/cheapaml_fields_load.F 162 CHEAPAML_FIELDS_LOAD 
                  local=-5.d0*cos(2.d0*pi*float(jg-1)/(float(ny-1)))
./pkg/cheapaml/cheapaml_fields_load.F 163 CHEAPAML_FIELDS_LOAD 
                  uwind(i,j,bi,bj) = local
./pkg/cheapaml/cheapaml_fields_load.F 302 CHEAPAML_FIELDS_LOAD 
           local=225.d0-float((jg-1))/float((ny-1))*37.5d0
./pkg/cheapaml/cheapaml_fields_load.F 303 CHEAPAML_FIELDS_LOAD 
           IF ( jG .le. 3 ) local =local + 200
./pkg/cheapaml/cheapaml_fields_load.F 304 CHEAPAML_FIELDS_LOAD 
                  Solar(i,j,bi,bj) = local
./pkg/cheapaml/cheapaml_fields_load.F 319 CHEAPAML_FIELDS_LOAD 
        local=solar(i,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F 320 CHEAPAML_FIELDS_LOAD 
        local=(2.d0*local/stefan)**(0.25d0)-273.16 _d 0
./pkg/cheapaml/cheapaml_fields_load.F 322 CHEAPAML_FIELDS_LOAD 
        local=local+bump
./pkg/cheapaml/cheapaml_fields_load.F 323 CHEAPAML_FIELDS_LOAD 
                  TR(i,j,bi,bj) = local
./pkg/cheapaml/cheapaml_fields_load.F 340 CHEAPAML_FIELDS_LOAD 
                  local = Tr(i,j,bi,bj)+273.16d0
./pkg/cheapaml/cheapaml_fields_load.F 341 CHEAPAML_FIELDS_LOAD 
              ssqa = ssq0*exp( lath*(ssq1-ssq2/local)) / p0
./pkg/cheapaml/cheapaml_fields_load.F 360 CHEAPAML_FIELDS_LOAD 
                  local=-5.d0*cos(2.d0*pi*float(jg-1)/(float(ny-1)))
./pkg/cheapaml/cheapaml_fields_load.F 362 CHEAPAML_FIELDS_LOAD 
                  uwind(i,j,bi,bj) = local
./pkg/cheapaml/cheapaml_fields_load.F 40 CHEAPAML_FIELDS_LOAD 
      _RL     local ,bump
./eesupp/src/scatter_vector.F 17 SCATTER_VECTOR 
      _RL     local(length)
./eesupp/src/scatter_vector.F 37 SCATTER_VECTOR 
         local(l) = global(lG)
./eesupp/src/scatter_vector.F 54 SCATTER_VECTOR 
            local(l) = global(lG)
./eesupp/src/scatter_vector.F 6 SCATTER_VECTOR 
      SUBROUTINE SCATTER_VECTOR( length, global, local, myThid )
./eesupp/src/scatter_vector.F 72 SCATTER_VECTOR 
         CALL MPI_RECV (local, lbuff, MPI_DOUBLE_PRECISION,
./eesupp/src/scatter_xz.F 16 SCATTER_XZ 
      _RL     local(1-OLx:sNx+OLx,nSx,nSy)
./eesupp/src/scatter_xz.F 38 SCATTER_XZ 
                  local(i,bi,bj) = global(iG)
./eesupp/src/scatter_xz.F 57 SCATTER_XZ 
                     local(i,bi,bj) = global(iG)
./eesupp/src/scatter_xz.F 6 SCATTER_XZ 
      SUBROUTINE SCATTER_XZ( global, local, myThid )
./eesupp/src/scatter_xz.F 79 SCATTER_XZ 
         CALL MPI_RECV (local, lbuff, MPI_DOUBLE_PRECISION,
./eesupp/src/scatter_yz.F 16 SCATTER_YZ 
      _RL     local(1-OLy:sNy+OLy,nSx,nSy)
./eesupp/src/scatter_yz.F 38 SCATTER_YZ 
                  local(j,bi,bj) = global(jG)
./eesupp/src/scatter_yz.F 57 SCATTER_YZ 
                     local(j,bi,bj) = global(jG)
./eesupp/src/scatter_yz.F 6 SCATTER_YZ 
      SUBROUTINE SCATTER_YZ( global, local, myThid )
./eesupp/src/scatter_yz.F 79 SCATTER_YZ 
         CALL MPI_RECV (local, lbuff, MPI_DOUBLE_PRECISION,