| File |
Line number |
Procedure |
Code |
|
./pkg/diagnostics/diagnostics_out.F |
383 |
DIAGNOSTICS_OUT |
qinp(i,j,k) = qtmp1(i,j,nlevels(listId)-k+1,bi,bj) |
|
./pkg/diagnostics/diagnostics_out.F |
385 |
DIAGNOSTICS_OUT |
qinp(i,j,k) = undef |
|
./pkg/diagnostics/diagnostics_out.F |
389 |
DIAGNOSTICS_OUT |
qinp(i,j,k) = qtmp1(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_out.F |
402 |
DIAGNOSTICS_OUT |
call PRESTOPRES(qprs(1,1,k),qinp,pkz,pksrf,0.,p,sNx,sNy, |
|
./pkg/diagnostics/diagnostics_out.F |
80 |
DIAGNOSTICS_OUT |
_RL qinp(sNx,sNy,Nr+Nrphys) |
|
./pkg/diagnostics/prestopres.F |
108 |
PRESTOPRES |
if( qinp(i,1,lm) .ne.undef .and. |
|
./pkg/diagnostics/prestopres.F |
109 |
PRESTOPRES |
. qinp(i,1,lm-1).ne.undef ) then |
|
./pkg/diagnostics/prestopres.F |
110 |
PRESTOPRES |
qprs(i,1) = qinp(i,1,lm-1)*temp + qinp(i,1,lm)*(1.-temp) |
|
./pkg/diagnostics/prestopres.F |
111 |
PRESTOPRES |
else if( qinp(i,1,lm) .ne.undef ) then |
|
./pkg/diagnostics/prestopres.F |
112 |
PRESTOPRES |
qprs(i,1) = qinp(i,1,lm) |
|
./pkg/diagnostics/prestopres.F |
1 |
PRESTOPRES |
subroutine PRESTOPRES ( qprs,qinp,pkz,pksrf,ptop,p,im,jm,lm ) |
|
./pkg/diagnostics/prestopres.F |
34 |
PRESTOPRES |
real qinp(im,jm,lm) |
|
./pkg/diagnostics/prestopres.F |
73 |
PRESTOPRES |
if( qinp(i,1,L) .ne.undef .and. |
|
./pkg/diagnostics/prestopres.F |
74 |
PRESTOPRES |
. qinp(i,1,L+1).ne.undef ) then |
|
./pkg/diagnostics/prestopres.F |
75 |
PRESTOPRES |
qprs(i,1) = qinp(i,1,L+1)*temp + qinp(i,1,L)*(1.-temp) |
|
./pkg/diagnostics/prestopres.F |
76 |
PRESTOPRES |
else if( qinp(i,1,L+1).ne.undef .and. temp.ge.0.5 ) then |
|
./pkg/diagnostics/prestopres.F |
77 |
PRESTOPRES |
qprs(i,1) = qinp(i,1,L+1) |
|
./pkg/diagnostics/prestopres.F |
78 |
PRESTOPRES |
else if( qinp(i,1,L) .ne.undef .and. temp.le.0.5 ) then |
|
./pkg/diagnostics/prestopres.F |
79 |
PRESTOPRES |
qprs(i,1) = qinp(i,1,L) |
|
./pkg/diagnostics/prestopres.F |
94 |
PRESTOPRES |
if( qinp(i,1,1).ne.undef .and. |
|
./pkg/diagnostics/prestopres.F |
95 |
PRESTOPRES |
. qinp(i,1,2).ne.undef ) then |
|
./pkg/diagnostics/prestopres.F |
96 |
PRESTOPRES |
qprs(i,1) = qinp(i,1,2)*temp + qinp(i,1,1)*(1.-temp) |
|
./pkg/diagnostics/prestopres.F |
97 |
PRESTOPRES |
else if( qinp(i,1,1).ne.undef ) then |
|
./pkg/diagnostics/prestopres.F |
98 |
PRESTOPRES |
qprs(i,1) = qinp(i,1,1) |