| File |
Line number |
Procedure |
Code |
|
./pkg/profiles/cost_profiles.F |
138 |
COST_PROFILES |
if (ProfNo(num_file,bi,bj).GT.0) then |
|
./pkg/profiles/cost_profiles.F |
141 |
COST_PROFILES |
& ProfNo(num_file,bi,bj),num_var |
|
./pkg/profiles/cost_profiles.F |
63 |
COST_PROFILES |
if (prof_num.LE.ProfNo(num_file,bi,bj)) then |
|
./pkg/profiles/profiles_init_fixed.F |
122 |
PROFILES_INIT_FIXED |
err = NF_INQ_DIMLEN(fid, dimid, ProfNo(num_file,bi,bj) ) |
|
./pkg/profiles/profiles_init_fixed.F |
130 |
PROFILES_INIT_FIXED |
& fid, num_file, ProfNo(num_file,bi,bj), |
|
./pkg/profiles/profiles_init_fixed.F |
206 |
PROFILES_INIT_FIXED |
profno_div1000=max(0,int(ProfNo(num_file,bi,bj)/1000)) |
|
./pkg/profiles/profiles_init_fixed.F |
210 |
PROFILES_INIT_FIXED |
if (min(ProfNo(num_file,bi,bj), 1000*kk).GE. |
|
./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 |
221 |
PROFILES_INIT_FIXED |
& (vec_count(2)+vec_start(2)-1.GT.ProfNo(num_file,bi,bj)) ) |
|
./pkg/profiles/profiles_init_fixed.F |
256 |
PROFILES_INIT_FIXED |
vec_count2(2)=min(1000,ProfNo(num_file,bi,bj)-1000*(kk-1)) |
|
./pkg/profiles/profiles_init_fixed.F |
267 |
PROFILES_INIT_FIXED |
do k=1,min(1000,ProfNo(num_file,bi,bj)-1000*(kk-1)) |
|
./pkg/profiles/profiles_init_fixed.F |
404 |
PROFILES_INIT_FIXED |
ProfNo(num_file,bi,bj)=length_for_tile |
|
./pkg/profiles/profiles_init_fixed.F |
408 |
PROFILES_INIT_FIXED |
& num_file, ProfNo(num_file,bi,bj) |
|
./pkg/profiles/profiles_init_fixed.F |
488 |
PROFILES_INIT_FIXED |
if (ProfNo(num_file,bi,bj).GT.0) then |
|
./pkg/profiles/profiles_init_fixed.F |
503 |
PROFILES_INIT_FIXED |
& fidforward(num_file,bi,bj),ProfNo(num_file,bi,bj), |
|
./pkg/profiles/profiles_init_fixed.F |
507 |
PROFILES_INIT_FIXED |
& adfnameequinc, fidadjoint(num_file,bi,bj),ProfNo(num_file,bi,bj), |
|
./pkg/profiles/profiles_init_fixed.F |
525 |
PROFILES_INIT_FIXED |
& ProfNo(num_file,bi,bj),ProfDepthNo(num_file,bi,bj), |
|
./pkg/profiles/profiles_init_fixed.F |
528 |
PROFILES_INIT_FIXED |
& adfnameequinc, fidadjoint(num_file,bi,bj),ProfNo(num_file,bi,bj), |
|
./pkg/profiles/profiles_init_fixed.F |
548 |
PROFILES_INIT_FIXED |
ProfNo(num_file,bi,bj)=0 |
|
./pkg/profiles/profiles_inloop.F |
65 |
PROFILES_INLOOP |
if (prof_num.LE.ProfNo(num_file,bi,bj)) then |