| File |
Line number |
Procedure |
Code |
|
./pkg/profiles/profiles_inloop.F |
59 |
PROFILES_INLOOP |
if (prof_num.LE.ProfNo(num_file,bi,bj)) then |
|
./pkg/profiles/profiles_init_fixed.F |
122 |
PROFILES_INIT_FIXED |
profno_div1000=max(0,int(ProfNo(num_file,bi,bj)/1000)) |
|
./pkg/profiles/profiles_init_fixed.F |
126 |
PROFILES_INIT_FIXED |
if (min(ProfNo(num_file,bi,bj), 1000*kk).GE. |
|
./pkg/profiles/profiles_init_fixed.F |
132 |
PROFILES_INIT_FIXED |
vec_count(2)=min(1000,ProfNo(num_file,bi,bj)-1000*(kk-1)) |
|
./pkg/profiles/profiles_init_fixed.F |
136 |
PROFILES_INIT_FIXED |
& (vec_count(2)+vec_start(2)-1.GT.ProfNo(num_file,bi,bj)) ) |
|
./pkg/profiles/profiles_init_fixed.F |
153 |
PROFILES_INIT_FIXED |
& kk,min(1000,ProfNo(num_file,bi,bj)-1000*(kk-1)) |
|
./pkg/profiles/profiles_init_fixed.F |
157 |
PROFILES_INIT_FIXED |
do k=1,min(1000,ProfNo(num_file,bi,bj)-1000*(kk-1)) |
|
./pkg/profiles/profiles_init_fixed.F |
207 |
PROFILES_INIT_FIXED |
ProfNo(num_file,bi,bj)=length_for_tile |
|
./pkg/profiles/profiles_init_fixed.F |
209 |
PROFILES_INIT_FIXED |
& num_file, ProfNo(num_file,bi,bj) |
|
./pkg/profiles/profiles_init_fixed.F |
283 |
PROFILES_INIT_FIXED |
if (ProfNo(num_file,bi,bj).GT.0) then |
|
./pkg/profiles/profiles_init_fixed.F |
298 |
PROFILES_INIT_FIXED |
& fidforward(num_file,bi,bj),ProfNo(num_file,bi,bj), |
|
./pkg/profiles/profiles_init_fixed.F |
302 |
PROFILES_INIT_FIXED |
& adfnameequinc, fidadjoint(num_file,bi,bj),ProfNo(num_file,bi,bj), |
|
./pkg/profiles/profiles_init_fixed.F |
320 |
PROFILES_INIT_FIXED |
& ProfNo(num_file,bi,bj),ProfDepthNo(num_file,bi,bj), |
|
./pkg/profiles/profiles_init_fixed.F |
323 |
PROFILES_INIT_FIXED |
& adfnameequinc, fidadjoint(num_file,bi,bj),ProfNo(num_file,bi,bj), |
|
./pkg/profiles/profiles_init_fixed.F |
346 |
PROFILES_INIT_FIXED |
ProfNo(num_file,bi,bj)=0 |
|
./pkg/profiles/profiles_init_fixed.F |
89 |
PROFILES_INIT_FIXED |
err = NF_INQ_DIMLEN(fid, dimid, ProfNo(num_file,bi,bj) ) |
|
./pkg/profiles/profiles_init_fixed.F |
96 |
PROFILES_INIT_FIXED |
&fid,num_file,ProfNo(num_file,bi,bj),ProfDepthNo(num_file,bi,bj) |
|
./pkg/profiles/cost_profiles.F |
110 |
COST_PROFILES |
if (ProfNo(num_file,bi,bj).GT.0) then |
|
./pkg/profiles/cost_profiles.F |
113 |
COST_PROFILES |
& ProfNo(num_file,bi,bj),num_var |
|
./pkg/profiles/cost_profiles.F |
56 |
COST_PROFILES |
if (prof_num.LE.ProfNo(num_file,bi,bj)) then |