| File |
Line number |
Procedure |
Code |
|
./pkg/diagnostics/prestopres.F |
100 |
PRESTOPRES |
else if( qinp(i,1,1).ne.undef ) then |
|
./pkg/diagnostics/prestopres.F |
101 |
PRESTOPRES |
qprs(i,1) = qinp(i,1,1) |
|
./pkg/diagnostics/prestopres.F |
111 |
PRESTOPRES |
if( qinp(i,1,lm) .ne.undef .and. |
|
./pkg/diagnostics/prestopres.F |
112 |
PRESTOPRES |
. qinp(i,1,lm-1).ne.undef ) then |
|
./pkg/diagnostics/prestopres.F |
113 |
PRESTOPRES |
qprs(i,1) = qinp(i,1,lm-1)*temp + qinp(i,1,lm)*(1.-temp) |
|
./pkg/diagnostics/prestopres.F |
114 |
PRESTOPRES |
else if( qinp(i,1,lm) .ne.undef ) then |
|
./pkg/diagnostics/prestopres.F |
115 |
PRESTOPRES |
qprs(i,1) = qinp(i,1,lm) |
|
./pkg/diagnostics/prestopres.F |
37 |
PRESTOPRES |
_RL qinp(im,jm,lm) |
|
./pkg/diagnostics/prestopres.F |
4 |
PRESTOPRES |
subroutine PRESTOPRES (qprs,qinp,pkz,pksrf,ptop,p,im,jm,lm,myThid) |
|
./pkg/diagnostics/prestopres.F |
76 |
PRESTOPRES |
if( qinp(i,1,L) .ne.undef .and. |
|
./pkg/diagnostics/prestopres.F |
77 |
PRESTOPRES |
. qinp(i,1,L+1).ne.undef ) then |
|
./pkg/diagnostics/prestopres.F |
78 |
PRESTOPRES |
qprs(i,1) = qinp(i,1,L+1)*temp + qinp(i,1,L)*(1.-temp) |
|
./pkg/diagnostics/prestopres.F |
79 |
PRESTOPRES |
else if( qinp(i,1,L+1).ne.undef .and. temp.ge.0.5 ) then |
|
./pkg/diagnostics/prestopres.F |
80 |
PRESTOPRES |
qprs(i,1) = qinp(i,1,L+1) |
|
./pkg/diagnostics/prestopres.F |
81 |
PRESTOPRES |
else if( qinp(i,1,L) .ne.undef .and. temp.le.0.5 ) then |
|
./pkg/diagnostics/prestopres.F |
82 |
PRESTOPRES |
qprs(i,1) = qinp(i,1,L) |
|
./pkg/diagnostics/prestopres.F |
97 |
PRESTOPRES |
if( qinp(i,1,1).ne.undef .and. |
|
./pkg/diagnostics/prestopres.F |
98 |
PRESTOPRES |
. qinp(i,1,2).ne.undef ) then |
|
./pkg/diagnostics/prestopres.F |
99 |
PRESTOPRES |
qprs(i,1) = qinp(i,1,2)*temp + qinp(i,1,1)*(1.-temp) |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
184 |
DIAGNOSTICS_INTERP_VERT |
qinp(i,j,k) = qtmp1(i,j,nlevels(listId)-k+1,bi,bj) |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
186 |
DIAGNOSTICS_INTERP_VERT |
qinp(i,j,k) = undef |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
190 |
DIAGNOSTICS_INTERP_VERT |
qinp(i,j,k) = qtmp1(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
201 |
DIAGNOSTICS_INTERP_VERT |
call PRESTOPRES(qprs(1,1,k),qinp,pkz,pksrf,0.,p,sNx,sNy, |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
208 |
DIAGNOSTICS_INTERP_VERT |
call PRESTOPRES(qprs(1,1,k),qinp,pkz,pksrf,0.,p,sNx,sNy, |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
215 |
DIAGNOSTICS_INTERP_VERT |
call PRESTOPRES(qprs(1,1,k),qinp,pkz,pksrf,0.,p,sNx,sNy, |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
91 |
DIAGNOSTICS_INTERP_VERT |
_RL qinp(sNx,sNy,Nr+Nrphys) |