| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_fillnegs.F |
198 |
TRACER_FILL |
qval = pq(i ,j,L)*d2p(i ,j)*dp(i,j,L) |
|
./pkg/fizhi/fizhi_fillnegs.F |
223 |
TRACER_FILL |
call MAXVAL1 (array,6,-qval,qmax,imax) |
|
./pkg/fizhi/fizhi_fillnegs.F |
230 |
TRACER_FILL |
if( sum.gt.-qval ) then |
|
./pkg/fizhi/fizhi_fillnegs.F |
231 |
TRACER_FILL |
fact = 1.0 + qval/sum |
|
./pkg/fizhi/fizhi_fillnegs.F |
269 |
MAXVAL1 |
subroutine MAXVAL1 (q,im,qval,qmax,imax) |
|
./pkg/fizhi/fizhi_fillnegs.F |
290 |
MAXVAL1 |
_RL q(im), qmax, qval |
|
./pkg/fizhi/fizhi_fillnegs.F |
291 |
MAXVAL1 |
qmax = qval |
|
./pkg/fizhi/fizhi_fillnegs.F |
93 |
TRACER_FILL |
_RL qmax,qval,sum,fact |