| 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 |
282 |
PROFILES_INTERP |
if (mask_cur(kcur+1).EQ.1.) then |
|
./pkg/profiles/profiles_interp.F |
284 |
PROFILES_INTERP |
tmp_coeff=(prof_depth(file_cur,kk,bi,bj)+rC(kcur))/ |
|
./pkg/profiles/profiles_interp.F |
285 |
PROFILES_INTERP |
& (-rC(kcur+1)+rC(kcur)) |
|
./pkg/profiles/profiles_interp.F |
286 |
PROFILES_INTERP |
traj_cur_out(kk)=(1-tmp_coeff)*traj_cur(kcur) |
|
./pkg/profiles/profiles_interp.F |
287 |
PROFILES_INTERP |
& +tmp_coeff*traj_cur(kcur+1) |
|
./pkg/profiles/profiles_interp.F |
289 |
PROFILES_INTERP |
if (mask_cur(kcur).EQ.0.) then |
|
./pkg/profiles/profiles_interp.F |
294 |
PROFILES_INTERP |
elseif (prof_depth(file_cur,kk,bi,bj).LT.-rF(kcur+1)) then |
|
./pkg/profiles/profiles_interp.F |
296 |
PROFILES_INTERP |
traj_cur_out(kk)=traj_cur(kcur) |
|
./pkg/profiles/profiles_interp.F |
297 |
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 |
|
./pkg/profiles/profiles_interp_gg.F |
138 |
PROFILES_INTERP_GG |
kcur=0 |
|
./pkg/profiles/profiles_interp_gg.F |
142 |
PROFILES_INTERP_GG |
kcur=k |
|
./pkg/profiles/profiles_interp_gg.F |
145 |
PROFILES_INTERP_GG |
if (kcur.EQ.0) then |
|
./pkg/profiles/profiles_interp_gg.F |
150 |
PROFILES_INTERP_GG |
if (mask_cur(kcur+1).EQ.1.) then |
|
./pkg/profiles/profiles_interp_gg.F |
152 |
PROFILES_INTERP_GG |
tmp_coeff=(prof_depth(file_cur,kk,bi,bj)+rC(kcur))/ |
|
./pkg/profiles/profiles_interp_gg.F |
153 |
PROFILES_INTERP_GG |
& (-rC(kcur+1)+rC(kcur)) |
|
./pkg/profiles/profiles_interp_gg.F |
154 |
PROFILES_INTERP_GG |
traj_cur_out(kk)=(1-tmp_coeff)*traj_cur(kcur) |
|
./pkg/profiles/profiles_interp_gg.F |
155 |
PROFILES_INTERP_GG |
& +tmp_coeff*traj_cur(kcur+1) |
|
./pkg/profiles/profiles_interp_gg.F |
157 |
PROFILES_INTERP_GG |
if (mask_cur(kcur).EQ.0.) then |
|
./pkg/profiles/profiles_interp_gg.F |
162 |
PROFILES_INTERP_GG |
elseif (prof_depth(file_cur,kk,bi,bj).LT.-rF(kcur+1)) then |
|
./pkg/profiles/profiles_interp_gg.F |
164 |
PROFILES_INTERP_GG |
traj_cur_out(kk)=traj_cur(kcur) |
|
./pkg/profiles/profiles_interp_gg.F |
165 |
PROFILES_INTERP_GG |
prof_mask1D_cur(kk,bi,bj)=mask_cur(kcur) |
|
./pkg/profiles/profiles_interp_gg.F |
63 |
PROFILES_INTERP_GG |
integer q,i,j,k,kk,kcur,iG,jG,bi,bj |
|
./pkg/profiles/profiles_interp_mean.F |
216 |
PROFILES_INTERP_MEAN |
kcur=0 |
|
./pkg/profiles/profiles_interp_mean.F |
220 |
PROFILES_INTERP_MEAN |
kcur=k |
|
./pkg/profiles/profiles_interp_mean.F |
223 |
PROFILES_INTERP_MEAN |
if (kcur.EQ.0) then |
|
./pkg/profiles/profiles_interp_mean.F |
228 |
PROFILES_INTERP_MEAN |
if (mask_cur(kcur+1).EQ.1.) then |
|
./pkg/profiles/profiles_interp_mean.F |
230 |
PROFILES_INTERP_MEAN |
tmp_coeff=(prof_depth(file_cur,kk,bi,bj)+rC(kcur))/ |
|
./pkg/profiles/profiles_interp_mean.F |
231 |
PROFILES_INTERP_MEAN |
& (-rC(kcur+1)+rC(kcur)) |
|
./pkg/profiles/profiles_interp_mean.F |
232 |
PROFILES_INTERP_MEAN |
traj_cur_out(kk)=(1-tmp_coeff)*traj_cur(kcur) |
|
./pkg/profiles/profiles_interp_mean.F |
233 |
PROFILES_INTERP_MEAN |
& +tmp_coeff*traj_cur(kcur+1) |
|
./pkg/profiles/profiles_interp_mean.F |
235 |
PROFILES_INTERP_MEAN |
if (mask_cur(kcur).EQ.0.) then |
|
./pkg/profiles/profiles_interp_mean.F |
240 |
PROFILES_INTERP_MEAN |
elseif (prof_depth(file_cur,kk,bi,bj).LT.-rF(kcur+1)) then |
|
./pkg/profiles/profiles_interp_mean.F |
242 |
PROFILES_INTERP_MEAN |
traj_cur_out(kk)=traj_cur(kcur) |
|
./pkg/profiles/profiles_interp_mean.F |
243 |
PROFILES_INTERP_MEAN |
prof_mask1D_cur(kk,bi,bj)=mask_cur(kcur) |
|
./pkg/profiles/profiles_interp_mean.F |
58 |
PROFILES_INTERP_MEAN |
integer i,j,k,kk,kcur,iG,jG,bi,bj |
|
./pkg/profiles/profiles_interp_mean_gg.F |
117 |
PROFILES_INTERP_MEAN_GG |
kcur=0 |
|
./pkg/profiles/profiles_interp_mean_gg.F |
121 |
PROFILES_INTERP_MEAN_GG |
kcur=k |
|
./pkg/profiles/profiles_interp_mean_gg.F |
124 |
PROFILES_INTERP_MEAN_GG |
if (kcur.EQ.0) then |
|
./pkg/profiles/profiles_interp_mean_gg.F |
129 |
PROFILES_INTERP_MEAN_GG |
if (mask_cur(kcur+1).EQ.1.) then |
|
./pkg/profiles/profiles_interp_mean_gg.F |
131 |
PROFILES_INTERP_MEAN_GG |
tmp_coeff=(prof_depth(file_cur,kk,bi,bj)+rC(kcur))/ |
|
./pkg/profiles/profiles_interp_mean_gg.F |
132 |
PROFILES_INTERP_MEAN_GG |
& (-rC(kcur+1)+rC(kcur)) |
|
./pkg/profiles/profiles_interp_mean_gg.F |
133 |
PROFILES_INTERP_MEAN_GG |
traj_cur_out(kk)=(1-tmp_coeff)*traj_cur(kcur) |
|
./pkg/profiles/profiles_interp_mean_gg.F |
134 |
PROFILES_INTERP_MEAN_GG |
& +tmp_coeff*traj_cur(kcur+1) |
|
./pkg/profiles/profiles_interp_mean_gg.F |
136 |
PROFILES_INTERP_MEAN_GG |
if (mask_cur(kcur).EQ.0.) then |
|
./pkg/profiles/profiles_interp_mean_gg.F |
141 |
PROFILES_INTERP_MEAN_GG |
elseif (prof_depth(file_cur,kk,bi,bj).LT.-rF(kcur+1)) then |
|
./pkg/profiles/profiles_interp_mean_gg.F |
143 |
PROFILES_INTERP_MEAN_GG |
traj_cur_out(kk)=traj_cur(kcur) |
|
./pkg/profiles/profiles_interp_mean_gg.F |
144 |
PROFILES_INTERP_MEAN_GG |
prof_mask1D_cur(kk,bi,bj)=mask_cur(kcur) |
|
./pkg/profiles/profiles_interp_mean_gg.F |
63 |
PROFILES_INTERP_MEAN_GG |
integer q,i,j,k,kk,kcur,iG,jG,bi,bj |