File |
Line number |
Procedure |
Code |
./pkg/profiles/profiles_interp.F |
110 |
PROFILES_INTERP |
pondsSUM=pondsSUM+ponderations(q) |
./pkg/profiles/profiles_interp.F |
113 |
PROFILES_INTERP |
if (pondsSUM.GT.0) then |
./pkg/profiles/profiles_interp.F |
118 |
PROFILES_INTERP |
& +tab_coeffs1(q)*ponderations(q)/pondsSUM |
./pkg/profiles/profiles_interp.F |
70 |
PROFILES_INTERP |
_RL ponderations(NUM_INTERP_POINTS),pondsSUM |
./pkg/profiles/profiles_interp.F |
83 |
PROFILES_INTERP |
pondsSUM=0. _d 0 |