| File |
Line number |
Procedure |
Code |
|
./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 |
111 |
PROFILES_READVECTOR |
& profiles_weight_buff(k,kk,kkk,bi,bj) = 0. _d 0 |
|
./pkg/profiles/profiles_readvector.F |
29 |
PROFILES_READVECTOR |
integer vec_loc_length, vNb, k, kk, kkk,bi,bj |
|
./pkg/profiles/profiles_readvector.F |
82 |
PROFILES_READVECTOR |
do kkk=1,NVARMAX |
|
./pkg/profiles/profiles_readvector.F |
83 |
PROFILES_READVECTOR |
if (vec_quantities(fNb,kkk,bi,bj).EQV..TRUE.) then |
|
./pkg/profiles/profiles_readvector.F |
84 |
PROFILES_READVECTOR |
err = NF_INQ_VARID(fiddata(fNb,bi,bj),prof_names(fNb,kkk), |
|
./pkg/profiles/profiles_readvector.F |
88 |
PROFILES_READVECTOR |
err = NF_INQ_VARID(fiddata(fNb,bi,bj),prof_namesweight(fNb,kkk) |
|
./pkg/profiles/profiles_readvector.F |
93 |
PROFILES_READVECTOR |
err = NF_INQ_VARID(fiddata(fNb,bi,bj),prof_namesclim(fNb,kkk) |