| File |
Line number |
Procedure |
Code |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
110 |
DIAGNOSTICS_INTERP_P2P |
IF ( qinp(i,1).NE.undef .AND. |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
111 |
DIAGNOSTICS_INTERP_P2P |
& qinp(i,2).NE.undef ) THEN |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
112 |
DIAGNOSTICS_INTERP_P2P |
qprs(i) = qinp(i,2)*temp + qinp(i,1)*(1.-temp) |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
113 |
DIAGNOSTICS_INTERP_P2P |
ELSEIF ( qinp(i,1).NE.undef ) THEN |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
114 |
DIAGNOSTICS_INTERP_P2P |
qprs(i) = qinp(i,1) |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
124 |
DIAGNOSTICS_INTERP_P2P |
IF ( qinp(i,lm) .NE.undef .AND. |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
125 |
DIAGNOSTICS_INTERP_P2P |
& qinp(i,lm-1).NE.undef ) THEN |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
126 |
DIAGNOSTICS_INTERP_P2P |
qprs(i) = qinp(i,lm-1)*temp + qinp(i,lm)*(1.-temp) |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
127 |
DIAGNOSTICS_INTERP_P2P |
ELSEIF ( qinp(i,lm) .NE.undef ) THEN |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
128 |
DIAGNOSTICS_INTERP_P2P |
qprs(i) = qinp(i,lm) |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
12 |
DIAGNOSTICS_INTERP_P2P |
I qinp,pkz,pksrf,pktop,pk, |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
153 |
DIAGNOSTICS_INTERP_P2P |
IF ( qinp(i,L) .NE.undef .AND. |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
154 |
DIAGNOSTICS_INTERP_P2P |
& qinp(i,L+1).NE.undef ) THEN |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
155 |
DIAGNOSTICS_INTERP_P2P |
qprs(i) = qinp(i,L+1)*temp + qinp(i,L)*(1.-temp) |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
156 |
DIAGNOSTICS_INTERP_P2P |
ELSEIF ( qinp(i,L+1).NE.undef .AND. temp.GE.0.5 ) THEN |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
157 |
DIAGNOSTICS_INTERP_P2P |
qprs(i) = qinp(i,L+1) |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
158 |
DIAGNOSTICS_INTERP_P2P |
ELSEIF ( qinp(i,L) .NE.undef .AND. temp.LE.0.5 ) THEN |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
159 |
DIAGNOSTICS_INTERP_P2P |
qprs(i) = qinp(i,L) |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
173 |
DIAGNOSTICS_INTERP_P2P |
IF ( qinp(i,lm) .NE.undef .AND. |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
174 |
DIAGNOSTICS_INTERP_P2P |
& qinp(i,lm-1).NE.undef ) THEN |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
175 |
DIAGNOSTICS_INTERP_P2P |
qprs(i) = qinp(i,lm-1)*temp + qinp(i,lm)*(1.-temp) |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
176 |
DIAGNOSTICS_INTERP_P2P |
ELSEIF ( qinp(i,lm) .NE.undef ) THEN |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
177 |
DIAGNOSTICS_INTERP_P2P |
qprs(i) = qinp(i,lm) |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
187 |
DIAGNOSTICS_INTERP_P2P |
IF ( qinp(i,1).NE.undef .AND. |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
188 |
DIAGNOSTICS_INTERP_P2P |
& qinp(i,2).NE.undef ) THEN |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
189 |
DIAGNOSTICS_INTERP_P2P |
qprs(i) = qinp(i,2)*temp + qinp(i,1)*(1.-temp) |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
190 |
DIAGNOSTICS_INTERP_P2P |
ELSEIF ( qinp(i,1).NE.undef ) THEN |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
191 |
DIAGNOSTICS_INTERP_P2P |
qprs(i) = qinp(i,1) |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
48 |
DIAGNOSTICS_INTERP_P2P |
_RL qinp (ijm,lm) |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
90 |
DIAGNOSTICS_INTERP_P2P |
IF ( qinp(i,L) .NE.undef .AND. |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
91 |
DIAGNOSTICS_INTERP_P2P |
& qinp(i,L+1).NE.undef ) THEN |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
92 |
DIAGNOSTICS_INTERP_P2P |
qprs(i) = qinp(i,L+1)*temp + qinp(i,L)*(1.-temp) |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
93 |
DIAGNOSTICS_INTERP_P2P |
ELSEIF ( qinp(i,L+1).NE.undef .AND. temp.GE.0.5 ) THEN |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
94 |
DIAGNOSTICS_INTERP_P2P |
qprs(i) = qinp(i,L+1) |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
95 |
DIAGNOSTICS_INTERP_P2P |
ELSEIF ( qinp(i,L) .NE.undef .AND. temp.LE.0.5 ) THEN |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
96 |
DIAGNOSTICS_INTERP_P2P |
qprs(i) = qinp(i,L) |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
162 |
DIAGNOSTICS_INTERP_VERT |
qinp(i,j,k) = qtmp1(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
176 |
DIAGNOSTICS_INTERP_VERT |
qinp(i,j,k)= qtmp1(i,j,kLev,bi,bj) |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
178 |
DIAGNOSTICS_INTERP_VERT |
qinp(i,j,k)= undefRL |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
191 |
DIAGNOSTICS_INTERP_VERT |
I qinp,pkz,pksrf,pkTop,pk, |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
71 |
DIAGNOSTICS_INTERP_VERT |
_RL qinp (sNx,sNy,NrMax) |