Symbol Description Uses
length 52


File Line number Procedure Code
./pkg/profiles/profiles_init_ncfile.F 13 PROFILES_INIT_NCFILE 
      subroutine PROFILES_INIT_NCFILE(num_file,fid1,file2,fid2,length,
./pkg/profiles/profiles_init_ncfile.F 29 PROFILES_INIT_NCFILE 
      integer myThid,bi,bj,err,vecid(2), length, Zlength
./pkg/profiles/profiles_init_ncfile.F 41 PROFILES_INIT_NCFILE 
      err = NF_DEF_DIM(fid2,'iPROF',length,dimid2)
./pkg/profiles/profiles_init_ncfile.F 82 PROFILES_INIT_NCFILE 
       do irec=length,1,-1
./eesupp/src/gather_vector.F 16 GATHER_VECTOR 
      INTEGER length
./eesupp/src/gather_vector.F 17 GATHER_VECTOR 
      Real*8  global(length*nPx*nPy)
./eesupp/src/gather_vector.F 18 GATHER_VECTOR 
      _RL     local(length)
./eesupp/src/gather_vector.F 22 GATHER_VECTOR 
      _RL     temp(length)
./eesupp/src/gather_vector.F 33 GATHER_VECTOR 
      DO l=1,length
./eesupp/src/gather_vector.F 36 GATHER_VECTOR 
         lG= (jG-1)*nPx*length + (iG-1)*length + l
./eesupp/src/gather_vector.F 42 GATHER_VECTOR 
      lbuff = length
./eesupp/src/gather_vector.F 53 GATHER_VECTOR 
         DO l=1,length
./eesupp/src/gather_vector.F 54 GATHER_VECTOR 
            lG= (jG-1)*nPx*length + (iG-1)*length + l
./eesupp/src/gather_vector.F 6 GATHER_VECTOR 
      SUBROUTINE GATHER_VECTOR( lprint, length, global, local, myThid )
./eesupp/src/gather_vector.F 77 GATHER_VECTOR 
            DO l=1,length
./eesupp/src/gather_vector.F 78 GATHER_VECTOR 
               lG= (jG-1)*nPx*length + (iG-1)*length + l
./pkg/autodiff/adopen_adclose.F 117 ADOPEN 
      integer length
./pkg/autodiff/adopen_adclose.F 142 ADCLOSE 
     I                    length
./pkg/autodiff/adopen_adclose.F 185 ADCLOSE 
      integer length
./pkg/autodiff/adopen_adclose.F 75 ADOPEN 
     I                   length
./pkg/autodiff/adread_adwrite.F 121 ADREAD 
      integer length
./pkg/autodiff/adread_adwrite.F 123 ADREAD 
      _RL     var(length)
./pkg/autodiff/adread_adwrite.F 171 ADREAD 
      n2d=int(length/length2d)
./pkg/autodiff/adread_adwrite.F 173 ADREAD 
      if (n2d*length2d.EQ.length) then
./pkg/autodiff/adread_adwrite.F 206 ADREAD 
     &       'ADREAD: ph', length, bx, by, irec
./pkg/autodiff/adread_adwrite.F 212 ADREAD 
     &                     length, var, bx, by, irec, mythid )
./pkg/autodiff/adread_adwrite.F 240 ADWRITE 
     I                    length,
./pkg/autodiff/adread_adwrite.F 288 ADWRITE 
      integer length
./pkg/autodiff/adread_adwrite.F 290 ADWRITE 
      _RL     var(length)
./pkg/autodiff/adread_adwrite.F 347 ADWRITE 
      n2d=int(length/length2d)
./pkg/autodiff/adread_adwrite.F 349 ADWRITE 
      if (n2d*length2d.EQ.length) then
./pkg/autodiff/adread_adwrite.F 369 ADWRITE 
     &       'ADWRITE: ph', length, bx, by, irec
./pkg/autodiff/adread_adwrite.F 375 ADWRITE 
     &                       length, var, bx, by, irec, 0, mythid )
./pkg/autodiff/adread_adwrite.F 74 ADREAD 
     I                   length,
./eesupp/src/scatter_vector.F 15 SCATTER_VECTOR 
      INTEGER length
./eesupp/src/scatter_vector.F 16 SCATTER_VECTOR 
      Real*8  global(length*nPx*nPy)
./eesupp/src/scatter_vector.F 17 SCATTER_VECTOR 
      _RL     local(length)
./eesupp/src/scatter_vector.F 21 SCATTER_VECTOR 
      _RL     temp(length)
./eesupp/src/scatter_vector.F 33 SCATTER_VECTOR 
      DO l=1,length
./eesupp/src/scatter_vector.F 36 SCATTER_VECTOR 
         lG= (jG-1)*nPx*length + (iG-1)*length + l
./eesupp/src/scatter_vector.F 42 SCATTER_VECTOR 
      lbuff   = length
./eesupp/src/scatter_vector.F 52 SCATTER_VECTOR 
         DO l=1,length
./eesupp/src/scatter_vector.F 53 SCATTER_VECTOR 
            lG= (jG-1)*nPx*length + (iG-1)*length + l
./eesupp/src/scatter_vector.F 61 SCATTER_VECTOR 
            DO l=1,length
./eesupp/src/scatter_vector.F 62 SCATTER_VECTOR 
               lG= (jG-1)*nPx*length + (iG-1)*length + l
./eesupp/src/scatter_vector.F 6 SCATTER_VECTOR 
      SUBROUTINE SCATTER_VECTOR( length, global, local, myThid )