| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_fillnegs.F |
196 |
TRACER_FILL |
if( pq(i,j,L).lt.0.0 ) then |
|
./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 |
199 |
TRACER_FILL |
array(1) = pq(ip1,j,L)*d2p(ip1,j)*dp(i,j,L) |
|
./pkg/fizhi/fizhi_fillnegs.F |
200 |
TRACER_FILL |
array(2) = pq(im1,j,L)*d2p(im1,j)*dp(i,j,L) |
|
./pkg/fizhi/fizhi_fillnegs.F |
205 |
TRACER_FILL |
array(3) = pq(i,j+1,L)*d2p(i,j+1)*dp(i,j,L) |
|
./pkg/fizhi/fizhi_fillnegs.F |
210 |
TRACER_FILL |
array(4) = pq(i,j-1,L)*d2p(i,j-1)*dp(i,j,L) |
|
./pkg/fizhi/fizhi_fillnegs.F |
215 |
TRACER_FILL |
array(5) = pq(i,j,L-1)*d2p(i,j)*dp(i,j,L) |
|
./pkg/fizhi/fizhi_fillnegs.F |
220 |
TRACER_FILL |
array(6) = pq(i,j,L+1)*d2p(i,j)*dp(i,j,L) |
|
./pkg/fizhi/fizhi_fillnegs.F |
232 |
TRACER_FILL |
if( array(1).gt.0 ) pq(ip1,j,L) = pq(ip1,j,L) * fact |
|
./pkg/fizhi/fizhi_fillnegs.F |
233 |
TRACER_FILL |
if( array(2).gt.0 ) pq(im1,j,L) = pq(im1,j,L) * fact |
|
./pkg/fizhi/fizhi_fillnegs.F |
234 |
TRACER_FILL |
if( array(3).gt.0 ) pq(i,j+1,L) = pq(i,j+1,L) * fact |
|
./pkg/fizhi/fizhi_fillnegs.F |
235 |
TRACER_FILL |
if( array(4).gt.0 ) pq(i,j-1,L) = pq(i,j-1,L) * fact |
|
./pkg/fizhi/fizhi_fillnegs.F |
236 |
TRACER_FILL |
if( array(5).gt.0 ) pq(i,j,L-1) = pq(i,j,L-1) * fact |
|
./pkg/fizhi/fizhi_fillnegs.F |
237 |
TRACER_FILL |
if( array(6).gt.0 ) pq(i,j,L+1) = pq(i,j,L+1) * fact |
|
./pkg/fizhi/fizhi_fillnegs.F |
238 |
TRACER_FILL |
pq(i,j,L) = 0.0 |
|
./pkg/fizhi/fizhi_fillnegs.F |
240 |
TRACER_FILL |
pq(i,j,L) = 0.0 |
|
./pkg/fizhi/fizhi_fillnegs.F |
243 |
TRACER_FILL |
if( imax.eq.1 ) pq(ip1,j,L) = pq(ip1,j,L) + |
|
./pkg/fizhi/fizhi_fillnegs.F |
244 |
TRACER_FILL |
. pq(i,j,L)*d2p(i,j)/d2p(ip1,j) |
|
./pkg/fizhi/fizhi_fillnegs.F |
245 |
TRACER_FILL |
if( imax.eq.2 ) pq(im1,j,L) = pq(im1,j,L) + |
|
./pkg/fizhi/fizhi_fillnegs.F |
246 |
TRACER_FILL |
. pq(i,j,L)*d2p(i,j)/d2p(im1,j) |
|
./pkg/fizhi/fizhi_fillnegs.F |
247 |
TRACER_FILL |
if( imax.eq.3 ) pq(i,j+1,L) = pq(i,j+1,L) + |
|
./pkg/fizhi/fizhi_fillnegs.F |
248 |
TRACER_FILL |
. pq(i,j,L)*d2p(i,j)/d2p(i,j+1) |
|
./pkg/fizhi/fizhi_fillnegs.F |
249 |
TRACER_FILL |
if( imax.eq.4 ) pq(i,j-1,L) = pq(i,j-1,L) + |
|
./pkg/fizhi/fizhi_fillnegs.F |
250 |
TRACER_FILL |
. pq(i,j,L)*d2p(i,j)/d2p(i,j-1) |
|
./pkg/fizhi/fizhi_fillnegs.F |
251 |
TRACER_FILL |
if( imax.eq.5 ) pq(i,j,L-1) = pq(i,j,L-1) + |
|
./pkg/fizhi/fizhi_fillnegs.F |
252 |
TRACER_FILL |
. pq(i,j,L)*dp(i,j,L) /dp(i,j,L-1) |
|
./pkg/fizhi/fizhi_fillnegs.F |
253 |
TRACER_FILL |
if( imax.eq.6 ) pq(i,j,L+1) = pq(i,j,L+1) + |
|
./pkg/fizhi/fizhi_fillnegs.F |
254 |
TRACER_FILL |
. pq(i,j,L)*dp(i,j,L) /dp(i,j,L+1) |
|
./pkg/fizhi/fizhi_fillnegs.F |
255 |
TRACER_FILL |
pq(i,j,L) = 0.0 |
|
./pkg/fizhi/fizhi_fillnegs.F |
58 |
TRACER_FILL |
subroutine TRACER_FILL ( pq,im,jm,lm,dlam,dphi,dp) |
|
./pkg/fizhi/fizhi_fillnegs.F |
85 |
TRACER_FILL |
_RL pq(im,jm,lm),dlam(im),dphi(jm),dp(im,jm,lm) |