Symbol Description Uses
mask_cur 8



File Line number Procedure Code
./pkg/profiles/profiles_interp.F 115 PROFILES_INTERP
         mask_cur(k)=1. _d 0
./pkg/profiles/profiles_interp.F 122 PROFILES_INTERP
         mask_cur(k)=0. _d 0
./pkg/profiles/profiles_interp.F 135 PROFILES_INTERP
          prof_mask1D_cur(kk,bi,bj)=mask_cur(1)
./pkg/profiles/profiles_interp.F 141 PROFILES_INTERP
            prof_mask1D_cur(kk,bi,bj)=mask_cur(nr)
./pkg/profiles/profiles_interp.F 158 PROFILES_INTERP
          if (mask_cur(kcur+1).EQ.1.) then
./pkg/profiles/profiles_interp.F 165 PROFILES_INTERP
            if (mask_cur(kcur).EQ.0.) then
./pkg/profiles/profiles_interp.F 174 PROFILES_INTERP
            prof_mask1D_cur(kk,bi,bj)=mask_cur(kcur)
./pkg/profiles/profiles_interp.F 72 PROFILES_INTERP
      _RL traj_cur(nR),mask_cur(nR)