| 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) |