| File |
Line number |
Procedure |
Code |
|
./pkg/profiles/active_file_control_profiles.F |
127 |
ACTIVE_READ_PROFILE_RL |
vec_count(1)=nactive_var |
|
./pkg/profiles/active_file_control_profiles.F |
128 |
ACTIVE_READ_PROFILE_RL |
vec_count(2)=1 |
|
./pkg/profiles/active_file_control_profiles.F |
131 |
ACTIVE_READ_PROFILE_RL |
err = NF_GET_VARA_DOUBLE(fid, varid1 , vec_start, vec_count, |
|
./pkg/profiles/active_file_control_profiles.F |
141 |
ACTIVE_READ_PROFILE_RL |
vec_count(1)=nactive_var |
|
./pkg/profiles/active_file_control_profiles.F |
142 |
ACTIVE_READ_PROFILE_RL |
vec_count(2)=1 |
|
./pkg/profiles/active_file_control_profiles.F |
145 |
ACTIVE_READ_PROFILE_RL |
err = NF_PUT_VARA_DOUBLE(fid, varid1 , vec_start, vec_count, |
|
./pkg/profiles/active_file_control_profiles.F |
205 |
ACTIVE_READ_PROFILE_RL |
vec_count(1)=nactive_var |
|
./pkg/profiles/active_file_control_profiles.F |
206 |
ACTIVE_READ_PROFILE_RL |
vec_count(2)=1 |
|
./pkg/profiles/active_file_control_profiles.F |
209 |
ACTIVE_READ_PROFILE_RL |
err = NF_GET_VARA_DOUBLE(fid, varid1 , vec_start, vec_count, |
|
./pkg/profiles/active_file_control_profiles.F |
274 |
ACTIVE_WRITE_PROFILE_RL |
integer err, fid, varid1 , vec_start(2), vec_count(2) |
|
./pkg/profiles/active_file_control_profiles.F |
304 |
ACTIVE_WRITE_PROFILE_RL |
vec_count(1)=nactive_var |
|
./pkg/profiles/active_file_control_profiles.F |
305 |
ACTIVE_WRITE_PROFILE_RL |
vec_count(2)=1 |
|
./pkg/profiles/active_file_control_profiles.F |
308 |
ACTIVE_WRITE_PROFILE_RL |
err = NF_PUT_VARA_DOUBLE(fid, varid1 , vec_start, vec_count, |
|
./pkg/profiles/active_file_control_profiles.F |
313 |
ACTIVE_WRITE_PROFILE_RL |
err = NF_PUT_VARA_DOUBLE(fid, varid1 , vec_start, vec_count, |
|
./pkg/profiles/active_file_control_profiles.F |
363 |
ACTIVE_WRITE_PROFILE_RL |
vec_count(1)=nactive_var |
|
./pkg/profiles/active_file_control_profiles.F |
364 |
ACTIVE_WRITE_PROFILE_RL |
vec_count(2)=1 |
|
./pkg/profiles/active_file_control_profiles.F |
366 |
ACTIVE_WRITE_PROFILE_RL |
err = NF_GET_VARA_DOUBLE(fid, varid1 , vec_start, vec_count, |
|
./pkg/profiles/active_file_control_profiles.F |
377 |
ACTIVE_WRITE_PROFILE_RL |
vec_count(1)=nactive_var |
|
./pkg/profiles/active_file_control_profiles.F |
378 |
ACTIVE_WRITE_PROFILE_RL |
vec_count(2)=1 |
|
./pkg/profiles/active_file_control_profiles.F |
381 |
ACTIVE_WRITE_PROFILE_RL |
err = NF_PUT_VARA_DOUBLE(fid, varid1 , vec_start, vec_count, |
|
./pkg/profiles/active_file_control_profiles.F |
433 |
ACTIVE_WRITE_PROFILE_RL |
vec_count(1)=nactive_var |
|
./pkg/profiles/active_file_control_profiles.F |
434 |
ACTIVE_WRITE_PROFILE_RL |
vec_count(2)=1 |
|
./pkg/profiles/active_file_control_profiles.F |
437 |
ACTIVE_WRITE_PROFILE_RL |
err = NF_PUT_VARA_DOUBLE(fid, varid1 , vec_start, vec_count, |
|
./pkg/profiles/active_file_control_profiles.F |
50 |
ACTIVE_READ_PROFILE_RL |
integer err, fid, varid1 , vec_start(2), vec_count(2) |
|
./pkg/profiles/active_file_control_profiles.F |
76 |
ACTIVE_READ_PROFILE_RL |
vec_count(1)=nactive_var |
|
./pkg/profiles/active_file_control_profiles.F |
77 |
ACTIVE_READ_PROFILE_RL |
vec_count(2)=1 |
|
./pkg/profiles/active_file_control_profiles.F |
80 |
ACTIVE_READ_PROFILE_RL |
err = NF_GET_VARA_DOUBLE(fid, varid1 , vec_start, vec_count, |
|
./pkg/profiles/active_file_control_profiles.F |
85 |
ACTIVE_READ_PROFILE_RL |
err = NF_GET_VARA_DOUBLE(fid, varid1 , vec_start, vec_count, |
|
./pkg/profiles/profiles_init_fixed.F |
216 |
PROFILES_INIT_FIXED |
vec_count(1)=1 |
|
./pkg/profiles/profiles_init_fixed.F |
217 |
PROFILES_INIT_FIXED |
vec_count(2)=min(1000,ProfNo(num_file,bi,bj)-1000*(kk-1)) |
|
./pkg/profiles/profiles_init_fixed.F |
219 |
PROFILES_INIT_FIXED |
if ( (vec_count(2).LE.0).OR.(vec_count(2).GT.1000).OR. |
|
./pkg/profiles/profiles_init_fixed.F |
221 |
PROFILES_INIT_FIXED |
& (vec_count(2)+vec_start(2)-1.GT.ProfNo(num_file,bi,bj)) ) |
|
./pkg/profiles/profiles_init_fixed.F |
229 |
PROFILES_INIT_FIXED |
& vec_count(2), tmpyymmdd) |
|
./pkg/profiles/profiles_init_fixed.F |
231 |
PROFILES_INIT_FIXED |
& vec_count(2), tmphhmmss) |
|
./pkg/profiles/profiles_init_fixed.F |
233 |
PROFILES_INIT_FIXED |
& vec_count(2), tmp_lon2) |
|
./pkg/profiles/profiles_init_fixed.F |
235 |
PROFILES_INIT_FIXED |
& vec_count(2), tmp_lat2) |
|
./pkg/profiles/profiles_init_fixed.F |
245 |
PROFILES_INIT_FIXED |
& vec_count(2), tmp_xC11) |
|
./pkg/profiles/profiles_init_fixed.F |
247 |
PROFILES_INIT_FIXED |
& vec_count(2), tmp_yC11) |
|
./pkg/profiles/profiles_init_fixed.F |
249 |
PROFILES_INIT_FIXED |
& vec_count(2), tmp_xCNINJ) |
|
./pkg/profiles/profiles_init_fixed.F |
251 |
PROFILES_INIT_FIXED |
& vec_count(2), tmp_yCNINJ) |
|
./pkg/profiles/profiles_init_fixed.F |
39 |
PROFILES_INIT_FIXED |
integer vec_start(2), vec_count(2), profno_div1000, kk |
|
./pkg/profiles/profiles_readvector.F |
33 |
PROFILES_READVECTOR |
integer vec_start(2),vec_count(2) |
|
./pkg/profiles/profiles_readvector.F |
69 |
PROFILES_READVECTOR |
vec_count(1)=vec_loc_length |
|
./pkg/profiles/profiles_readvector.F |
70 |
PROFILES_READVECTOR |
vec_count(2)= |
|
./pkg/profiles/profiles_readvector.F |
78 |
PROFILES_READVECTOR |
& vec_count, vec_tmp1) |
|
./pkg/profiles/profiles_readvector.F |
82 |
PROFILES_READVECTOR |
& vec_count, vec_tmp2) |
|
./pkg/profiles/profiles_readvector.F |
89 |
PROFILES_READVECTOR |
do k=1,vec_count(1) |
|
./pkg/profiles/profiles_readvector.F |
90 |
PROFILES_READVECTOR |
do kk=1,vec_count(2) |
|
./pkg/profiles/profiles_readvector.F |
91 |
PROFILES_READVECTOR |
profiles_data_buff(k,kk,kkk,bi,bj)=vec_tmp1((kk-1)*vec_count(1)+k) |
|
./pkg/profiles/profiles_readvector.F |
92 |
PROFILES_READVECTOR |
profiles_weight_buff(k,kk,kkk,bi,bj)=vec_tmp2((kk-1)*vec_count(1) |