| File |
Line number |
Procedure |
Code |
|
./pkg/profiles/cost_profiles.F |
171 |
COST_PROFILES |
do prof_num=1,NOBSGLOB |
|
./pkg/profiles/cost_profiles.F |
172 |
COST_PROFILES |
if (prof_num.LE.ProfNo(num_file,bi,bj)) then |
|
./pkg/profiles/cost_profiles.F |
182 |
COST_PROFILES |
ix9 = prof_interp_i(num_file,prof_num,1,bi,bj) |
|
./pkg/profiles/cost_profiles.F |
183 |
COST_PROFILES |
iy9 = prof_interp_j(num_file,prof_num,1,bi,bj) |
|
./pkg/profiles/cost_profiles.F |
185 |
COST_PROFILES |
if(prof_ind_avgbin(num_file,prof_num,bi,bj).GT.NAVGBIN) |
|
./pkg/profiles/cost_profiles.F |
186 |
COST_PROFILES |
& NAVGBIN = prof_ind_avgbin(num_file,prof_num,bi,bj) |
|
./pkg/profiles/cost_profiles.F |
189 |
COST_PROFILES |
itmp = prof_ind_avgbin(num_file,prof_num,bi,bj) |
|
./pkg/profiles/cost_profiles.F |
195 |
COST_PROFILES |
& prof_num,.false.,optimcycle,bi,bj,mythid, |
|
./pkg/profiles/cost_profiles.F |
199 |
COST_PROFILES |
& prof_ind_glob(num_file,prof_num,bi,bj), |
|
./pkg/profiles/cost_profiles.F |
203 |
COST_PROFILES |
& prof_ind_glob(num_file,prof_num,bi,bj), |
|
./pkg/profiles/cost_profiles.F |
433 |
COST_PROFILES |
do prof_num=1,NOBSGLOB |
|
./pkg/profiles/cost_profiles.F |
434 |
COST_PROFILES |
if (prof_num.LE.ProfNo(num_file,bi,bj)) then |
|
./pkg/profiles/cost_profiles.F |
45 |
COST_PROFILES |
integer K,num_file,num_var,prof_num |
|
./pkg/profiles/cost_profiles.F |
460 |
COST_PROFILES |
itmp = prof_ind_avgbin(num_file,prof_num,bi,bj) |
|
./pkg/profiles/cost_profiles.F |
478 |
COST_PROFILES |
& prof_num,.false.,optimcycle,bi,bj,mythid, |
|
./pkg/profiles/cost_profiles.F |
482 |
COST_PROFILES |
& prof_ind_glob(num_file,prof_num,bi,bj), |
|
./pkg/profiles/cost_profiles.F |
486 |
COST_PROFILES |
& prof_ind_glob(num_file,prof_num,bi,bj), |
|
./pkg/profiles/profiles_inloop.F |
46 |
PROFILES_INLOOP |
integer k,bi,bj,prof_num, num_file, num_var |
|
./pkg/profiles/profiles_inloop.F |
66 |
PROFILES_INLOOP |
do prof_num=1,NOBSGLOB |
|
./pkg/profiles/profiles_inloop.F |
67 |
PROFILES_INLOOP |
if (prof_num.LE.ProfNo(num_file,bi,bj)) then |
|
./pkg/profiles/profiles_inloop.F |
68 |
PROFILES_INLOOP |
if ((prof_time(num_file,prof_num,bi,bj).GE.mytime).AND. |
|
./pkg/profiles/profiles_inloop.F |
69 |
PROFILES_INLOOP |
& (prof_time(num_file,prof_num,bi,bj).LT.(mytime+deltaTclock))) |
|
./pkg/profiles/profiles_inloop.F |
73 |
PROFILES_INLOOP |
prof_i1D(k)= prof_interp_i(num_file,prof_num,k,bi,bj) |
|
./pkg/profiles/profiles_inloop.F |
74 |
PROFILES_INLOOP |
prof_j1D(k)= prof_interp_j(num_file,prof_num,k,bi,bj) |
|
./pkg/profiles/profiles_inloop.F |
75 |
PROFILES_INLOOP |
prof_w1D(k)= prof_interp_weights(num_file,prof_num,k,bi,bj) |
|
./pkg/profiles/profiles_inloop.F |
95 |
PROFILES_INLOOP |
& prof_num,optimcycle,bi,bj,mythid, |