| File |
Line number |
Procedure |
Code |
|
./pkg/diagnostics/diagnostics_out.F |
379 |
DIAGNOSTICS_OUT |
pksrf(i,j) = qtmpsrf(i,j,bi,bj) ** kappa |
|
./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 |
82 |
DIAGNOSTICS_OUT |
_RL pksrf(sNx,sNy) |
|
./pkg/diagnostics/prestopres.F |
105 |
PRESTOPRES |
if( pk.le.pksrf(i,1) .and. pk.ge.pkz(i,1,lm ) ) then |
|
./pkg/diagnostics/prestopres.F |
1 |
PRESTOPRES |
subroutine PRESTOPRES ( qprs,qinp,pkz,pksrf,ptop,p,im,jm,lm ) |
|
./pkg/diagnostics/prestopres.F |
36 |
PRESTOPRES |
real pksrf(im,jm) |