Symbol Description Uses
kcur 14


File Line number Procedure Code
./pkg/profiles/profiles_interp.F 270 PROFILES_INTERP 
          kcur=0
./pkg/profiles/profiles_interp.F 274 PROFILES_INTERP 
              kcur=k
./pkg/profiles/profiles_interp.F 277 PROFILES_INTERP 
          if (kcur.EQ.0) then
./pkg/profiles/profiles_interp.F 281 PROFILES_INTERP 
          if (mask_cur(kcur+1).EQ.1.) then
./pkg/profiles/profiles_interp.F 283 PROFILES_INTERP 
            tmp_coeff=(prof_depth(file_cur,kk,bi,bj)+rC(kcur))/
./pkg/profiles/profiles_interp.F 284 PROFILES_INTERP 
     &      (-rC(kcur+1)+rC(kcur))
./pkg/profiles/profiles_interp.F 285 PROFILES_INTERP 
            traj_cur_out(kk)=(1-tmp_coeff)*traj_cur(kcur)
./pkg/profiles/profiles_interp.F 286 PROFILES_INTERP 
     &      +tmp_coeff*traj_cur(kcur+1)
./pkg/profiles/profiles_interp.F 288 PROFILES_INTERP 
            if (mask_cur(kcur).EQ.0.) then
./pkg/profiles/profiles_interp.F 292 PROFILES_INTERP 
          elseif (prof_depth(file_cur,kk,bi,bj).LT.-rF(kcur+1)) then
./pkg/profiles/profiles_interp.F 294 PROFILES_INTERP 
            traj_cur_out(kk)=traj_cur(kcur)
./pkg/profiles/profiles_interp.F 295 PROFILES_INTERP 
            prof_mask1D_cur(kk,bi,bj)=mask_cur(kcur)
./pkg/profiles/profiles_interp.F 58 PROFILES_INTERP 
      integer i,j,k,kk,kcur,iG,jG,bi,bj