Symbol Description Uses
pksrf 7



File Line number Procedure Code
./pkg/diagnostics/diagnostics_interp_p2p.F 121 DIAGNOSTICS_INTERP_P2P
       IF ( pk.GE.pkz(i,lm) .AND. pk.LE.pksrf(i) ) THEN
./pkg/diagnostics/diagnostics_interp_p2p.F 12 DIAGNOSTICS_INTERP_P2P
     I                       qinp,pkz,pksrf,pktop,pk,
./pkg/diagnostics/diagnostics_interp_p2p.F 184 DIAGNOSTICS_INTERP_P2P
       IF ( pk.GE.pkz(i,1) .AND. pk.LE.pksrf(i) ) THEN
./pkg/diagnostics/diagnostics_interp_p2p.F 50 DIAGNOSTICS_INTERP_P2P
      _RL  pksrf(ijm)
./pkg/diagnostics/diagnostics_interp_vert.F 154 DIAGNOSTICS_INTERP_VERT
              pksrf(i,j)    = qtmpsrf(i,j,bi,bj)**kappa
./pkg/diagnostics/diagnostics_interp_vert.F 191 DIAGNOSTICS_INTERP_VERT
     I                        qinp,pkz,pksrf,pkTop,pk,
./pkg/diagnostics/diagnostics_interp_vert.F 73 DIAGNOSTICS_INTERP_VERT
      _RL   pksrf(sNx,sNy)