File |
Line number |
Procedure |
Code |
./pkg/profiles/cost_profiles.F |
160 |
COST_PROFILES |
& prof_depth_comb(k2,bi,bj).AND. |
./pkg/profiles/cost_profiles.F |
161 |
COST_PROFILES |
& prof_depth_comb(k2,bi,bj).GE.0. _d 0.AND. |
./pkg/profiles/profiles.h |
62 |
NO PROCEDURE |
_RL prof_depth_comb(NLEVELCOMBMAX,nsx,nsy) |
./pkg/profiles/profiles.h |
83 |
NO PROCEDURE |
&,prof_depth_comb |
./pkg/profiles/profiles_init_fixed.F |
787 |
PROFILES_INIT_FIXED |
prof_depth_comb(m,bi,bj)=-999. _d 0 |
./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 |
800 |
PROFILES_INIT_FIXED |
if(prof_depth_comb(l,bi,bj) .ne. -999. _d 0) then |
./pkg/profiles/profiles_init_fixed.F |
803 |
PROFILES_INIT_FIXED |
& prof_depth_comb(l,bi,bj).and. |
./pkg/profiles/profiles_init_fixed.F |
805 |
PROFILES_INIT_FIXED |
prof_depth_comb(NLEVELCOMBMAX,bi,bj) = |
./pkg/profiles/profiles_init_fixed.F |
806 |
PROFILES_INIT_FIXED |
& prof_depth_comb(l,bi,bj) |
./pkg/profiles/profiles_init_fixed.F |
807 |
PROFILES_INIT_FIXED |
prof_depth_comb(l,bi,bj)= |
./pkg/profiles/profiles_init_fixed.F |
810 |
PROFILES_INIT_FIXED |
prof_depth_comb(il,bi,bj)= |
./pkg/profiles/profiles_init_fixed.F |
811 |
PROFILES_INIT_FIXED |
& prof_depth_comb(il-1,bi,bj) |
./pkg/profiles/profiles_init_fixed.F |
813 |
PROFILES_INIT_FIXED |
prof_depth_comb(l+1,bi,bj)= |
./pkg/profiles/profiles_init_fixed.F |
814 |
PROFILES_INIT_FIXED |
& prof_depth_comb(NLEVELCOMBMAX,bi,bj) |
./pkg/profiles/profiles_init_fixed.F |
816 |
PROFILES_INIT_FIXED |
& prof_depth_comb(l,bi,bj).and. |
./pkg/profiles/profiles_init_fixed.F |
818 |
PROFILES_INIT_FIXED |
& prof_depth_comb(l+1,bi,bj)) then |
./pkg/profiles/profiles_init_fixed.F |
820 |
PROFILES_INIT_FIXED |
prof_depth_comb(NLEVELCOMBMAX,bi,bj) = |
./pkg/profiles/profiles_init_fixed.F |
821 |
PROFILES_INIT_FIXED |
& prof_depth_comb(l+1,bi,bj) |
./pkg/profiles/profiles_init_fixed.F |
822 |
PROFILES_INIT_FIXED |
prof_depth_comb(l+1,bi,bj)= |
./pkg/profiles/profiles_init_fixed.F |
825 |
PROFILES_INIT_FIXED |
prof_depth_comb(il,bi,bj)= |
./pkg/profiles/profiles_init_fixed.F |
826 |
PROFILES_INIT_FIXED |
& prof_depth_comb(il-1,bi,bj) |
./pkg/profiles/profiles_init_fixed.F |
828 |
PROFILES_INIT_FIXED |
prof_depth_comb(l+2,bi,bj)= |
./pkg/profiles/profiles_init_fixed.F |
829 |
PROFILES_INIT_FIXED |
& prof_depth_comb(NLEVELCOMBMAX,bi,bj) |
./pkg/profiles/profiles_init_fixed.F |
831 |
PROFILES_INIT_FIXED |
& prof_depth_comb(l,bi,bj).and. |
./pkg/profiles/profiles_init_fixed.F |
832 |
PROFILES_INIT_FIXED |
& prof_depth_comb(l+1,bi,bj).eq.-999. _d 0) then |
./pkg/profiles/profiles_init_fixed.F |
833 |
PROFILES_INIT_FIXED |
prof_depth_comb(l+1,bi,bj) = |
./pkg/profiles/profiles_init_fixed.F |
847 |
PROFILES_INIT_FIXED |
prof_depth_comb(NLEVELCOMBMAX,bi,bj) = -999. _d 0 |
./pkg/profiles/profiles_init_fixed.F |
851 |
PROFILES_INIT_FIXED |
if(prof_depth_comb(m,bi,bj) .GE. 0. _d 0 |