Symbol Description Uses
length dimension of the variable stored on the tape. 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 30 PROFILES_INIT_NCFILE 
      integer myThid,bi,bj,err,vecid(2), length, Zlength
./pkg/profiles/profiles_init_ncfile.F 42 PROFILES_INIT_NCFILE 
      err = NF_DEF_DIM(fid2,'iPROF',length,dimid2)
./pkg/profiles/profiles_init_ncfile.F 83 PROFILES_INIT_NCFILE 
       do irec=length,1,-1
./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 119 ADREAD 
      INTEGER length
./pkg/autodiff/adread_adwrite.F 156 ADREAD 
      n2d = INT(length/length2d)
./pkg/autodiff/adread_adwrite.F 157 ADREAD 
      IF ( size.EQ.8 .AND. n2d*length2d.EQ.length ) THEN
./pkg/autodiff/adread_adwrite.F 177 ADREAD 
     &      length, size, filePrec, ' fname=', fname(1:lenLoc)
./pkg/autodiff/adread_adwrite.F 232 ADREAD 
     &                         length, dummyR8, var,
./pkg/autodiff/adread_adwrite.F 238 ADREAD 
     &                         length,  var, dummyR4,
./pkg/autodiff/adread_adwrite.F 268 ADWRITE 
     I                    length,
./pkg/autodiff/adread_adwrite.F 317 ADWRITE 
      INTEGER length
./pkg/autodiff/adread_adwrite.F 355 ADWRITE 
      n2d = INT(length/length2d)
./pkg/autodiff/adread_adwrite.F 356 ADWRITE 
      IF ( size.EQ.8 .AND. n2d*length2d.EQ.length ) THEN
./pkg/autodiff/adread_adwrite.F 376 ADWRITE 
     &      length, size, filePrec, ' fname=', fname(1:lenLoc)
./pkg/autodiff/adread_adwrite.F 428 ADWRITE 
     &                         length, dummyR8, var,
./pkg/autodiff/adread_adwrite.F 434 ADWRITE 
     &                         length, var, dummyR4,
./pkg/autodiff/adread_adwrite.F 71 ADREAD 
     I                   length,
./pkg/compon_communic/comprecv_i4vec.F 13 COMPRECV_I4VEC 
      integer length
./pkg/compon_communic/comprecv_i4vec.F 14 COMPRECV_I4VEC 
      integer vecFld(length)
./pkg/compon_communic/comprecv_i4vec.F 25 COMPRECV_I4VEC 
      if ( 1+length .gt. MAX_IBUF )
./pkg/compon_communic/comprecv_i4vec.F 56 COMPRECV_I4VEC 
      if ( j.ne.length ) then
./pkg/compon_communic/comprecv_i4vec.F 57 COMPRECV_I4VEC 
        write(LogUnit,*) 'comprecv_i4vec: length,header=', length, j
./pkg/compon_communic/comprecv_i4vec.F 5 COMPRECV_I4VEC 
      subroutine COMPRECV_I4VEC( dataname, length, vecFld )
./pkg/compon_communic/comprecv_i4vec.F 62 COMPRECV_I4VEC 
      do i=1,length
./pkg/compon_communic/compsend_i4vec.F 13 COMPSEND_I4VEC 
      integer length
./pkg/compon_communic/compsend_i4vec.F 14 COMPSEND_I4VEC 
      integer vecFld(length)
./pkg/compon_communic/compsend_i4vec.F 24 COMPSEND_I4VEC 
      if ( 1+length .gt. MAX_IBUF )
./pkg/compon_communic/compsend_i4vec.F 28 COMPSEND_I4VEC 
      ibuf(1) = length
./pkg/compon_communic/compsend_i4vec.F 29 COMPSEND_I4VEC 
      do i=1,length
./pkg/compon_communic/compsend_i4vec.F 34 COMPSEND_I4VEC 
      count = 1+length
./pkg/compon_communic/compsend_i4vec.F 5 COMPSEND_I4VEC 
      subroutine COMPSEND_I4VEC( dataname, length, vecFld )
./pkg/compon_communic/couprecv_i4vec.F 14 COUPRECV_I4VEC 
      integer length
./pkg/compon_communic/couprecv_i4vec.F 15 COUPRECV_I4VEC 
      integer vecFld(length)
./pkg/compon_communic/couprecv_i4vec.F 29 COUPRECV_I4VEC 
      if ( 1+length .gt. MAX_IBUF )
./pkg/compon_communic/couprecv_i4vec.F 5 COUPRECV_I4VEC 
      subroutine COUPRECV_I4VEC( component, dataname, length, vecFld )
./pkg/compon_communic/couprecv_i4vec.F 77 COUPRECV_I4VEC 
       if ( j.ne.length ) then
./pkg/compon_communic/couprecv_i4vec.F 78 COUPRECV_I4VEC 
        write(LogUnit,*) 'couprecv_i4vec: length,header=', length, j
./pkg/compon_communic/couprecv_i4vec.F 84 COUPRECV_I4VEC 
         do i=1,length
./pkg/compon_communic/couprecv_i4vec.F 89 COUPRECV_I4VEC 
         do i=1,length
./pkg/compon_communic/couprecv_i4vec.F 94 COUPRECV_I4VEC 
     &      ' couprecv_i4vec: length=', length, ' name=', dataname
./pkg/compon_communic/coupsend_i4vec.F 14 COUPSEND_I4VEC 
      integer length
./pkg/compon_communic/coupsend_i4vec.F 15 COUPSEND_I4VEC 
      integer vecFld(length)
./pkg/compon_communic/coupsend_i4vec.F 28 COUPSEND_I4VEC 
      if ( 1+length .gt. MAX_IBUF )
./pkg/compon_communic/coupsend_i4vec.F 46 COUPSEND_I4VEC 
      ibuf(1) = length
./pkg/compon_communic/coupsend_i4vec.F 47 COUPSEND_I4VEC 
      do i=1,length
./pkg/compon_communic/coupsend_i4vec.F 55 COUPSEND_I4VEC 
       count = 1+length
./pkg/compon_communic/coupsend_i4vec.F 5 COUPSEND_I4VEC 
      subroutine COUPSEND_I4VEC( component, dataname, length, vecFld )