| File |
Line number |
Procedure |
Code |
|
./pkg/profiles/cost_profiles.F |
123 |
COST_PROFILES |
& prof_lon(num_file,prof_num,bi,bj), |
|
./pkg/profiles/cost_profiles.F |
124 |
COST_PROFILES |
& prof_lat(num_file,prof_num,bi,bj), |
|
./pkg/profiles/cost_profiles.F |
144 |
COST_PROFILES |
& prof_lon(num_file,prof_num,bi,bj), |
|
./pkg/profiles/cost_profiles.F |
145 |
COST_PROFILES |
& prof_lat(num_file,prof_num,bi,bj), |
|
./pkg/profiles/cost_profiles.F |
152 |
COST_PROFILES |
& prof_num,.false.,optimcycle,bi,bj,mythid, |
|
./pkg/profiles/cost_profiles.F |
156 |
COST_PROFILES |
& prof_ind_glob(num_file,prof_num,bi,bj), |
|
./pkg/profiles/cost_profiles.F |
160 |
COST_PROFILES |
& prof_ind_glob(num_file,prof_num,bi,bj), |
|
./pkg/profiles/cost_profiles.F |
44 |
COST_PROFILES |
integer K,num_file,num_var,prof_num |
|
./pkg/profiles/cost_profiles.F |
90 |
COST_PROFILES |
do prof_num=1,NOBSGLOB |
|
./pkg/profiles/cost_profiles.F |
91 |
COST_PROFILES |
if (prof_num.LE.ProfNo(num_file,bi,bj)) then |
|
./pkg/profiles/cost_profiles.F |
95 |
COST_PROFILES |
prof_i1D(k)= prof_interp_i(num_file,prof_num,k,bi,bj) |
|
./pkg/profiles/cost_profiles.F |
96 |
COST_PROFILES |
prof_j1D(k)= prof_interp_j(num_file,prof_num,k,bi,bj) |
|
./pkg/profiles/cost_profiles.F |
97 |
COST_PROFILES |
prof_w1D(k)= prof_interp_weights(num_file,prof_num,k,bi,bj) |
|
./pkg/profiles/profiles_inloop.F |
100 |
PROFILES_INLOOP |
& prof_num,optimcycle,bi,bj,mythid, |
|
./pkg/profiles/profiles_inloop.F |
42 |
PROFILES_INLOOP |
integer k,bi,bj,prof_num, num_file, num_var |
|
./pkg/profiles/profiles_inloop.F |
64 |
PROFILES_INLOOP |
do prof_num=1,NOBSGLOB |
|
./pkg/profiles/profiles_inloop.F |
65 |
PROFILES_INLOOP |
if (prof_num.LE.ProfNo(num_file,bi,bj)) then |
|
./pkg/profiles/profiles_inloop.F |
66 |
PROFILES_INLOOP |
if ((prof_time(num_file,prof_num,bi,bj).GE.mytime).AND. |
|
./pkg/profiles/profiles_inloop.F |
67 |
PROFILES_INLOOP |
& (prof_time(num_file,prof_num,bi,bj).LT.(mytime+deltaTclock))) |
|
./pkg/profiles/profiles_inloop.F |
72 |
PROFILES_INLOOP |
prof_i1D(k)= prof_interp_i(num_file,prof_num,k,bi,bj) |
|
./pkg/profiles/profiles_inloop.F |
73 |
PROFILES_INLOOP |
prof_j1D(k)= prof_interp_j(num_file,prof_num,k,bi,bj) |
|
./pkg/profiles/profiles_inloop.F |
74 |
PROFILES_INLOOP |
prof_w1D(k)= prof_interp_weights(num_file,prof_num,k,bi,bj) |
|
./pkg/profiles/profiles_inloop.F |
88 |
PROFILES_INLOOP |
& prof_lon(num_file,prof_num,bi,bj), |
|
./pkg/profiles/profiles_inloop.F |
89 |
PROFILES_INLOOP |
& prof_lat(num_file,prof_num,bi,bj), |