Symbol Description Uses
kcur 14


File Line number Procedure Code
./pkg/profiles/profiles_interp.F 145 PROFILES_INTERP 
          kcur=0
./pkg/profiles/profiles_interp.F 149 PROFILES_INTERP 
              kcur=k
./pkg/profiles/profiles_interp.F 152 PROFILES_INTERP 
          if (kcur.EQ.0) then
./pkg/profiles/profiles_interp.F 158 PROFILES_INTERP 
          if (mask_cur(kcur+1).EQ.1.) then
./pkg/profiles/profiles_interp.F 160 PROFILES_INTERP 
            tmp_coeff=(prof_depth(file_cur,kk,bi,bj)+rC(kcur))/
./pkg/profiles/profiles_interp.F 161 PROFILES_INTERP 
     &      (-rC(kcur+1)+rC(kcur))
./pkg/profiles/profiles_interp.F 162 PROFILES_INTERP 
            traj_cur_out(kk)=(1-tmp_coeff)*traj_cur(kcur)
./pkg/profiles/profiles_interp.F 163 PROFILES_INTERP 
     &      +tmp_coeff*traj_cur(kcur+1)
./pkg/profiles/profiles_interp.F 165 PROFILES_INTERP 
            if (mask_cur(kcur).EQ.0.) then
./pkg/profiles/profiles_interp.F 171 PROFILES_INTERP 
          elseif (prof_depth(file_cur,kk,bi,bj).LT.-rF(kcur+1)) then
./pkg/profiles/profiles_interp.F 173 PROFILES_INTERP 
            traj_cur_out(kk)=traj_cur(kcur)
./pkg/profiles/profiles_interp.F 174 PROFILES_INTERP 
            prof_mask1D_cur(kk,bi,bj)=mask_cur(kcur)
./pkg/profiles/profiles_interp.F 71 PROFILES_INTERP 
      integer q,k,kk,kcur,bi,bj