| File |
Line number |
Procedure |
Code |
|
./pkg/profiles/cost_profiles.F |
159 |
COST_PROFILES |
if(prof_depth(num_file, k,bi,bj).EQ. |
|
./pkg/profiles/profiles.h |
23 |
NO PROCEDURE |
_RL prof_depth(NFILESPROFMAX,NLEVELMAX,nsx,nsy) |
|
./pkg/profiles/profiles.h |
80 |
NO PROCEDURE |
& prof_depth, prof_mask1D_cur, |
|
./pkg/profiles/profiles_init_fixed.F |
240 |
PROFILES_INIT_FIXED |
& prof_depth(num_file,k,bi,bj)) |
|
./pkg/profiles/profiles_init_fixed.F |
795 |
PROFILES_INIT_FIXED |
prof_depth_comb(m,bi,bj) = prof_depth(num_file, k,bi,bj) |
|
./pkg/profiles/profiles_init_fixed.F |
802 |
PROFILES_INIT_FIXED |
if(prof_depth(num_file, k,bi,bj).lt. |
|
./pkg/profiles/profiles_init_fixed.F |
808 |
PROFILES_INIT_FIXED |
& prof_depth(num_file, k,bi,bj) |
|
./pkg/profiles/profiles_init_fixed.F |
815 |
PROFILES_INIT_FIXED |
else if(prof_depth(num_file, k,bi,bj).gt. |
|
./pkg/profiles/profiles_init_fixed.F |
817 |
PROFILES_INIT_FIXED |
& prof_depth(num_file, k,bi,bj).lt. |
|
./pkg/profiles/profiles_init_fixed.F |
823 |
PROFILES_INIT_FIXED |
& prof_depth(num_file, k,bi,bj) |
|
./pkg/profiles/profiles_init_fixed.F |
830 |
PROFILES_INIT_FIXED |
else if ( prof_depth(num_file, k,bi,bj).gt. |
|
./pkg/profiles/profiles_init_fixed.F |
834 |
PROFILES_INIT_FIXED |
& prof_depth(num_file, k,bi,bj) |
|
./pkg/profiles/profiles_interp.F |
133 |
PROFILES_INTERP |
if (prof_depth(file_cur,kk,bi,bj).LT.-rC(1)) then |
|
./pkg/profiles/profiles_interp.F |
137 |
PROFILES_INTERP |
elseif (prof_depth(file_cur,kk,bi,bj).GE.-rC(nr)) then |
|
./pkg/profiles/profiles_interp.F |
138 |
PROFILES_INTERP |
if ( prof_depth(file_cur,kk,bi,bj) .LT. |
|
./pkg/profiles/profiles_interp.F |
147 |
PROFILES_INTERP |
if ((prof_depth(file_cur,kk,bi,bj).GE.-rC(k)).AND. |
|
./pkg/profiles/profiles_interp.F |
148 |
PROFILES_INTERP |
& (prof_depth(file_cur,kk,bi,bj).LT.-rC(k+1))) then |
|
./pkg/profiles/profiles_interp.F |
160 |
PROFILES_INTERP |
tmp_coeff=(prof_depth(file_cur,kk,bi,bj)+rC(kcur))/ |
|
./pkg/profiles/profiles_interp.F |
171 |
PROFILES_INTERP |
elseif (prof_depth(file_cur,kk,bi,bj).LT.-rF(kcur+1)) then |