| File |
Line number |
Procedure |
Code |
|
./pkg/profiles/cost_profiles.F |
135 |
COST_PROFILES |
if ( (ProfNo(num_file,bi,bj).GT.0).AND. |
|
./pkg/profiles/cost_profiles.F |
172 |
COST_PROFILES |
if (prof_num.LE.ProfNo(num_file,bi,bj)) then |
|
./pkg/profiles/cost_profiles.F |
414 |
COST_PROFILES |
if ( (ProfNo(num_file,bi,bj).GT.0).AND. |
|
./pkg/profiles/cost_profiles.F |
434 |
COST_PROFILES |
if (prof_num.LE.ProfNo(num_file,bi,bj)) then |
|
./pkg/profiles/cost_profiles.F |
522 |
COST_PROFILES |
if (ProfNo(num_file,bi,bj).GT.0) then |
|
./pkg/profiles/cost_profiles.F |
525 |
COST_PROFILES |
& ProfNo(num_file,bi,bj),num_var |
|
./pkg/profiles/profiles_init_fixed.F |
193 |
PROFILES_INIT_FIXED |
err = NF_INQ_DIMLEN(fid, dimid, ProfNo(num_file,bi,bj) ) |
|
./pkg/profiles/profiles_init_fixed.F |
218 |
PROFILES_INIT_FIXED |
& ProfNo(num_file,bi,bj) |
|
./pkg/profiles/profiles_init_fixed.F |
301 |
PROFILES_INIT_FIXED |
profno_div1000=max(0,int(ProfNo(num_file,bi,bj)/1000)) |
|
./pkg/profiles/profiles_init_fixed.F |
305 |
PROFILES_INIT_FIXED |
if (min(ProfNo(num_file,bi,bj), 1000*kk).GE. |
|
./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 |
316 |
PROFILES_INIT_FIXED |
& (vec_count(2)+vec_start(2)-1.GT.ProfNo(num_file,bi,bj)) ) |
|
./pkg/profiles/profiles_init_fixed.F |
361 |
PROFILES_INIT_FIXED |
vec_count2(2)=min(1000,ProfNo(num_file,bi,bj)-1000*(kk-1)) |
|
./pkg/profiles/profiles_init_fixed.F |
372 |
PROFILES_INIT_FIXED |
do k=1,min(1000,ProfNo(num_file,bi,bj)-1000*(kk-1)) |
|
./pkg/profiles/profiles_init_fixed.F |
608 |
PROFILES_INIT_FIXED |
ProfNo(num_file,bi,bj)=ProfNo_tile |
|
./pkg/profiles/profiles_init_fixed.F |
618 |
PROFILES_INIT_FIXED |
& ProfNo(num_file,bi,bj) |
|
./pkg/profiles/profiles_init_fixed.F |
667 |
PROFILES_INIT_FIXED |
if (ProfNo(num_file,bi,bj).GT.0) then |
|
./pkg/profiles/profiles_init_fixed.F |
685 |
PROFILES_INIT_FIXED |
& fidforward(num_file,bi,bj),ProfNo(num_file,bi,bj), |
|
./pkg/profiles/profiles_init_fixed.F |
696 |
PROFILES_INIT_FIXED |
& ProfNo(num_file,bi,bj),ProfDepthNo(num_file,bi,bj), |
|
./pkg/profiles/profiles_init_fixed.F |
719 |
PROFILES_INIT_FIXED |
& ProfNo(num_file,bi,bj),ProfDepthNo(num_file,bi,bj), |
|
./pkg/profiles/profiles_init_fixed.F |
736 |
PROFILES_INIT_FIXED |
& ProfNo(num_file,bi,bj),ProfDepthNo(num_file,bi,bj), |
|
./pkg/profiles/profiles_init_fixed.F |
751 |
PROFILES_INIT_FIXED |
ProfNo(num_file,bi,bj)=0 |
|
./pkg/profiles/profiles_inloop.F |
67 |
PROFILES_INLOOP |
if (prof_num.LE.ProfNo(num_file,bi,bj)) then |