File |
Line number |
Procedure |
Code |
./pkg/profiles/active_file_control_profiles.F |
129 |
ACTIVE_READ_PROFILE_RL |
vec_count(1)=nactive_var |
./pkg/profiles/active_file_control_profiles.F |
130 |
ACTIVE_READ_PROFILE_RL |
vec_count(2)=1 |
./pkg/profiles/active_file_control_profiles.F |
134 |
ACTIVE_READ_PROFILE_RL |
err = NF_GET_VARA_DOUBLE(fid, varid1 , vec_start, vec_count, |
./pkg/profiles/active_file_control_profiles.F |
144 |
ACTIVE_READ_PROFILE_RL |
vec_count(1)=nactive_var |
./pkg/profiles/active_file_control_profiles.F |
145 |
ACTIVE_READ_PROFILE_RL |
vec_count(2)=1 |
./pkg/profiles/active_file_control_profiles.F |
149 |
ACTIVE_READ_PROFILE_RL |
err = NF_PUT_VARA_DOUBLE(fid, varid1 , vec_start, vec_count, |
./pkg/profiles/active_file_control_profiles.F |
209 |
ACTIVE_READ_PROFILE_RL |
vec_count(1)=nactive_var |
./pkg/profiles/active_file_control_profiles.F |
210 |
ACTIVE_READ_PROFILE_RL |
vec_count(2)=1 |
./pkg/profiles/active_file_control_profiles.F |
214 |
ACTIVE_READ_PROFILE_RL |
err = NF_GET_VARA_DOUBLE(fid, varid1 , vec_start, vec_count, |
./pkg/profiles/active_file_control_profiles.F |
280 |
ACTIVE_WRITE_PROFILE_RL |
integer err, fid, varid1 , vec_start(2), vec_count(2) |
./pkg/profiles/active_file_control_profiles.F |
310 |
ACTIVE_WRITE_PROFILE_RL |
vec_count(1)=nactive_var |
./pkg/profiles/active_file_control_profiles.F |
311 |
ACTIVE_WRITE_PROFILE_RL |
vec_count(2)=1 |
./pkg/profiles/active_file_control_profiles.F |
315 |
ACTIVE_WRITE_PROFILE_RL |
err = NF_PUT_VARA_DOUBLE(fid, varid1 , vec_start, vec_count, |
./pkg/profiles/active_file_control_profiles.F |
320 |
ACTIVE_WRITE_PROFILE_RL |
err = NF_PUT_VARA_DOUBLE(fid, varid1 , vec_start, vec_count, |
./pkg/profiles/active_file_control_profiles.F |
370 |
ACTIVE_WRITE_PROFILE_RL |
vec_count(1)=nactive_var |
./pkg/profiles/active_file_control_profiles.F |
371 |
ACTIVE_WRITE_PROFILE_RL |
vec_count(2)=1 |
./pkg/profiles/active_file_control_profiles.F |
374 |
ACTIVE_WRITE_PROFILE_RL |
err = NF_GET_VARA_DOUBLE(fid, varid1 , vec_start, vec_count, |
./pkg/profiles/active_file_control_profiles.F |
385 |
ACTIVE_WRITE_PROFILE_RL |
vec_count(1)=nactive_var |
./pkg/profiles/active_file_control_profiles.F |
386 |
ACTIVE_WRITE_PROFILE_RL |
vec_count(2)=1 |
./pkg/profiles/active_file_control_profiles.F |
390 |
ACTIVE_WRITE_PROFILE_RL |
err = NF_PUT_VARA_DOUBLE(fid, varid1 , vec_start, vec_count, |
./pkg/profiles/active_file_control_profiles.F |
442 |
ACTIVE_WRITE_PROFILE_RL |
vec_count(1)=nactive_var |
./pkg/profiles/active_file_control_profiles.F |
443 |
ACTIVE_WRITE_PROFILE_RL |
vec_count(2)=1 |
./pkg/profiles/active_file_control_profiles.F |
447 |
ACTIVE_WRITE_PROFILE_RL |
err = NF_PUT_VARA_DOUBLE(fid, varid1 , vec_start, vec_count, |
./pkg/profiles/active_file_control_profiles.F |
51 |
ACTIVE_READ_PROFILE_RL |
integer err, fid, varid1 , vec_start(2), vec_count(2) |
./pkg/profiles/active_file_control_profiles.F |
77 |
ACTIVE_READ_PROFILE_RL |
vec_count(1)=nactive_var |
./pkg/profiles/active_file_control_profiles.F |
78 |
ACTIVE_READ_PROFILE_RL |
vec_count(2)=1 |
./pkg/profiles/active_file_control_profiles.F |
82 |
ACTIVE_READ_PROFILE_RL |
err = NF_GET_VARA_DOUBLE(fid, varid1 , vec_start, vec_count, |
./pkg/profiles/active_file_control_profiles.F |
87 |
ACTIVE_READ_PROFILE_RL |
err = NF_GET_VARA_DOUBLE(fid, varid1 , vec_start, vec_count, |
./pkg/profiles/profiles_init_fixed.F |
311 |
PROFILES_INIT_FIXED |
vec_count(1)=1 |
./pkg/profiles/profiles_init_fixed.F |
312 |
PROFILES_INIT_FIXED |
vec_count(2)=min(1000,ProfNo(num_file,bi,bj)-1000*(kk-1)) |
./pkg/profiles/profiles_init_fixed.F |
314 |
PROFILES_INIT_FIXED |
if ( (vec_count(2).LE.0).OR.(vec_count(2).GT.1000).OR. |
./pkg/profiles/profiles_init_fixed.F |
316 |
PROFILES_INIT_FIXED |
& (vec_count(2)+vec_start(2)-1.GT.ProfNo(num_file,bi,bj)) ) |
./pkg/profiles/profiles_init_fixed.F |
327 |
PROFILES_INIT_FIXED |
& vec_count(2), tmpyymmdd) |
./pkg/profiles/profiles_init_fixed.F |
329 |
PROFILES_INIT_FIXED |
& vec_count(2), tmphhmmss) |
./pkg/profiles/profiles_init_fixed.F |
331 |
PROFILES_INIT_FIXED |
& vec_count(2), tmp_lon2) |
./pkg/profiles/profiles_init_fixed.F |
333 |
PROFILES_INIT_FIXED |
& vec_count(2), tmp_lat2) |
./pkg/profiles/profiles_init_fixed.F |
336 |
PROFILES_INIT_FIXED |
& vec_count(2), tmp_avgbin) |
./pkg/profiles/profiles_init_fixed.F |
350 |
PROFILES_INIT_FIXED |
& vec_count(2), tmp_xC11) |
./pkg/profiles/profiles_init_fixed.F |
352 |
PROFILES_INIT_FIXED |
& vec_count(2), tmp_yC11) |
./pkg/profiles/profiles_init_fixed.F |
354 |
PROFILES_INIT_FIXED |
& vec_count(2), tmp_xCNINJ) |
./pkg/profiles/profiles_init_fixed.F |
356 |
PROFILES_INIT_FIXED |
& vec_count(2), tmp_yCNINJ) |
./pkg/profiles/profiles_init_fixed.F |
55 |
PROFILES_INIT_FIXED |
integer vec_start(2), vec_count(2), profno_div1000, kk |
./pkg/profiles/profiles_readvector.F |
104 |
PROFILES_READVECTOR |
do k=1,vec_count(1) |
./pkg/profiles/profiles_readvector.F |
105 |
PROFILES_READVECTOR |
do kk=1,vec_count(2) |
./pkg/profiles/profiles_readvector.F |
106 |
PROFILES_READVECTOR |
profiles_data_buff(k,kk,kkk,bi,bj)=vec_tmp1((kk-1)*vec_count(1)+k) |
./pkg/profiles/profiles_readvector.F |
107 |
PROFILES_READVECTOR |
profiles_weight_buff(k,kk,kkk,bi,bj)=vec_tmp2((kk-1)*vec_count(1) |
./pkg/profiles/profiles_readvector.F |
110 |
PROFILES_READVECTOR |
if(vec_tmp3((kk-1)*vec_count(1)+k).LE.-990. _d 0) |
./pkg/profiles/profiles_readvector.F |
35 |
PROFILES_READVECTOR |
integer vec_start(2),vec_count(2) |
./pkg/profiles/profiles_readvector.F |
78 |
PROFILES_READVECTOR |
vec_count(1)=vec_loc_length |
./pkg/profiles/profiles_readvector.F |
79 |
PROFILES_READVECTOR |
vec_count(2)= |
./pkg/profiles/profiles_readvector.F |
87 |
PROFILES_READVECTOR |
& vec_count, vec_tmp1) |
./pkg/profiles/profiles_readvector.F |
91 |
PROFILES_READVECTOR |
& vec_count, vec_tmp2) |
./pkg/profiles/profiles_readvector.F |
96 |
PROFILES_READVECTOR |
& vec_count, vec_tmp3) |