| File |
Line number |
Procedure |
Code |
|
./pkg/profiles/profiles_readvector.F |
27 |
PROFILES_READVECTOR |
integer vec_loc_length, vNb, k, kk, kkk,bi,bj |
|
./pkg/profiles/profiles_readvector.F |
67 |
PROFILES_READVECTOR |
do kkk=1,6 |
|
./pkg/profiles/profiles_readvector.F |
68 |
PROFILES_READVECTOR |
if (vec_quantities(fNb,kkk,bi,bj).EQV..TRUE.) then |
|
./pkg/profiles/profiles_readvector.F |
69 |
PROFILES_READVECTOR |
err = NF_INQ_VARID(fiddata(fNb,bi,bj),prof_names(kkk), |
|
./pkg/profiles/profiles_readvector.F |
73 |
PROFILES_READVECTOR |
err = NF_INQ_VARID(fiddata(fNb,bi,bj),prof_namesweight(kkk) |
|
./pkg/profiles/profiles_readvector.F |
85 |
PROFILES_READVECTOR |
profiles_data_buff(k,kk,kkk,bi,bj)=vec_tmp1((kk-1)*vec_count(1)+k) |
|
./pkg/profiles/profiles_readvector.F |
86 |
PROFILES_READVECTOR |
profiles_weight_buff(k,kk,kkk,bi,bj)=vec_tmp2((kk-1)*vec_count(1) |