Symbol Description Uses
Zlength 7



File Line number Procedure Code
./pkg/profiles/profiles_init_ncfile.F 14 PROFILES_INIT_NCFILE
     & Zlength,bi,bj,myThid)
./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 33 PROFILES_INIT_NCFILE
      real*8 tmp_vec(Zlength+1)
./pkg/profiles/profiles_init_ncfile.F 41 PROFILES_INIT_NCFILE
      err = NF_DEF_DIM(fid2,'iDEPTH', Zlength ,dimid1)
./pkg/profiles/profiles_init_ncfile.F 75 PROFILES_INIT_NCFILE
     &      access='direct', recl=  (Zlength + 1)*WORDLENGTH*2 )
./pkg/profiles/profiles_init_ncfile.F 77 PROFILES_INIT_NCFILE
       do irec=1,Zlength+1
./pkg/profiles/profiles_init_ncfile.F 81 PROFILES_INIT_NCFILE
            call MDS_BYTESWAPR8(Zlength+1,tmp_vec)