| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_fillnegs.F |
198 |
TRACER_FILL |
qval = pq(i ,j,L)*d2p(i ,j)*dp(i,j,L) |
|
./pkg/fizhi/fizhi_fillnegs.F |
199 |
TRACER_FILL |
array(1) = pq(ip1,j,L)*d2p(ip1,j)*dp(i,j,L) |
|
./pkg/fizhi/fizhi_fillnegs.F |
200 |
TRACER_FILL |
array(2) = pq(im1,j,L)*d2p(im1,j)*dp(i,j,L) |
|
./pkg/fizhi/fizhi_fillnegs.F |
205 |
TRACER_FILL |
array(3) = pq(i,j+1,L)*d2p(i,j+1)*dp(i,j,L) |
|
./pkg/fizhi/fizhi_fillnegs.F |
210 |
TRACER_FILL |
array(4) = pq(i,j-1,L)*d2p(i,j-1)*dp(i,j,L) |
|
./pkg/fizhi/fizhi_fillnegs.F |
215 |
TRACER_FILL |
array(5) = pq(i,j,L-1)*d2p(i,j)*dp(i,j,L) |
|
./pkg/fizhi/fizhi_fillnegs.F |
220 |
TRACER_FILL |
array(6) = pq(i,j,L+1)*d2p(i,j)*dp(i,j,L) |
|
./pkg/fizhi/fizhi_fillnegs.F |
252 |
TRACER_FILL |
. pq(i,j,L)*dp(i,j,L) /dp(i,j,L-1) |
|
./pkg/fizhi/fizhi_fillnegs.F |
254 |
TRACER_FILL |
. pq(i,j,L)*dp(i,j,L) /dp(i,j,L+1) |
|
./pkg/fizhi/fizhi_fillnegs.F |
29 |
QCHECK |
_RL dp(idim1:idim2,jdim1:jdim2,ldim,Nsx,Nsy) |
|
./pkg/fizhi/fizhi_fillnegs.F |
40 |
QCHECK |
ddsig = dp(i,j,LM1,bi,bj)/dp(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_fillnegs.F |
58 |
TRACER_FILL |
subroutine TRACER_FILL ( pq,im,jm,lm,dlam,dphi,dp) |
|
./pkg/fizhi/fizhi_fillnegs.F |
6 |
QCHECK |
. jm1,jm2,bi,bj,dp,qz) |
|
./pkg/fizhi/fizhi_fillnegs.F |
85 |
TRACER_FILL |
_RL pq(im,jm,lm),dlam(im),dphi(jm),dp(im,jm,lm) |
|
./pkg/fizhi/fizhi_lwrad.F |
620 |
IRRAD |
_RL dp,xx,p1,dwe,dpe,a1,b1,fk1,a2,b2,fk2 |
|
./pkg/fizhi/fizhi_lwrad.F |
913 |
IRRAD |
dp = pl(i,j,k+1)-pl(i,j,k) |
|
./pkg/fizhi/fizhi_lwrad.F |
914 |
IRRAD |
dh2o (i,j,k) = 1.02*wa(i,j,k)*dp+1.e-10 |
|
./pkg/fizhi/fizhi_lwrad.F |
915 |
IRRAD |
do3 (i,j,k) = 476.*oa(i,j,k)*dp+1.e-10 |
|
./pkg/fizhi/fizhi_lwrad.F |
916 |
IRRAD |
dco2 (i,j,k) = 789.*co2*dp+1.e-10 |
|
./pkg/fizhi/fizhi_lwrad.F |
917 |
IRRAD |
dch4 (i,j,k) = 789.*ch4(k)*dp+1.e-10 |
|
./pkg/fizhi/fizhi_lwrad.F |
918 |
IRRAD |
dn2o (i,j,k) = 789.*n2o(k)*dp+1.e-10 |
|
./pkg/fizhi/fizhi_lwrad.F |
919 |
IRRAD |
df11 (i,j,k) = 789.*cfc11*dp+1.e-10 |
|
./pkg/fizhi/fizhi_lwrad.F |
920 |
IRRAD |
df12 (i,j,k) = 789.*cfc12*dp+1.e-10 |
|
./pkg/fizhi/fizhi_lwrad.F |
921 |
IRRAD |
df22 (i,j,k) = 789.*cfc22*dp+1.e-10 |
|
./pkg/fizhi/fizhi_lwrad.F |
926 |
IRRAD |
xx=pa(i,j,k)*0.001618*wa(i,j,k)*wa(i,j,k)*dp |
|
./pkg/fizhi/fizhi_lwrad.F |
949 |
IRRAD |
dp =pl(i,j,k+1)-pl(i,j,k) |
|
./pkg/fizhi/fizhi_lwrad.F |
950 |
IRRAD |
cwp(i,j,k,1)=1.02*10000.0*cwc(i,j,k,1)*dp |
|
./pkg/fizhi/fizhi_lwrad.F |
951 |
IRRAD |
cwp(i,j,k,2)=1.02*10000.0*cwc(i,j,k,2)*dp |
|
./pkg/fizhi/fizhi_lwrad.F |
952 |
IRRAD |
cwp(i,j,k,3)=1.02*10000.0*cwc(i,j,k,3)*dp |
|
./pkg/fizhi/fizhi_moist.F |
104 |
MOISTIO |
_RL dp(istrip,lm) |
|
./pkg/fizhi/fizhi_moist.F |
358 |
MOISTIO |
CALL STRIP ( dpgather, dp ,im*jm,ISTRIP,lm,NN ) |
|
./pkg/fizhi/fizhi_moist.F |
542 |
MOISTIO |
dum = dp(i,L)/(ple(i,lm+1)-ple(i,nsubcl)) |
|
./pkg/fizhi/fizhi_step_diag.F |
20 |
FIZHI_STEP_DIAG |
_RL dp(im2,jm2,Nrphys,Nbi,Nbj) |
|
./pkg/fizhi/fizhi_step_diag.F |
341 |
FIZHI_STEP_DIAG |
& moistt(i,j,L,bi,bj)*pk(i,j,l,bi,bj)*dp(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_step_diag.F |
365 |
FIZHI_STEP_DIAG |
& turbt(i,j,L,bi,bj)*pk(i,j,l,bi,bj)*dp(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_step_diag.F |
390 |
FIZHI_STEP_DIAG |
& *pk(i,j,l,bi,bj)*dp(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_step_diag.F |
414 |
FIZHI_STEP_DIAG |
& swdt(i,j,L,bi,bj)*pk(i,j,l,bi,bj)*dp(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_step_diag.F |
440 |
FIZHI_STEP_DIAG |
& sphy(i,j,L)*dp(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_step_diag.F |
5 |
FIZHI_STEP_DIAG |
SUBROUTINE FIZHI_STEP_DIAG(myid,p,uphy,vphy,thphy,sphy,qq,pk,dp, |
|
./pkg/fizhi/fizhi_swrad.F |
1569 |
SOLUV |
subroutine SOLUV (m,n,ndim,np,oh,dp,taucld,tauclb,tauclf,reff, |
|
./pkg/fizhi/fizhi_swrad.F |
1658 |
SOLUV |
_RL oh(m,n,np),dp(m,n,np),taual(m,ndim,np) |
|
./pkg/fizhi/fizhi_swrad.F |
1785 |
SOLUV |
taurs=ry(ib)*dp(i,j,k) |
|
./pkg/fizhi/fizhi_swrad.F |
590 |
OPTHK |
_RL dp, alf, fracls, fraccu |
|
./pkg/fizhi/fizhi_swrad.F |
599 |
OPTHK |
dp = ple(i,j,L+1)-ple(i,j,L) |
|
./pkg/fizhi/fizhi_swrad.F |
620 |
OPTHK |
tau(i,j,L,1) = fracls*(1-alf)*tauice*dp |
|
./pkg/fizhi/fizhi_swrad.F |
628 |
OPTHK |
tau(i,j,L,3) = fracls*alf*tauh2o*dp |
|
./pkg/fizhi/fizhi_swrad.F |
633 |
OPTHK |
tau(i,j,L,2) = fracls*alf*tauh2o*dp |
|
./pkg/fizhi/fizhi_swrad.F |
638 |
OPTHK |
tau(i,j,L,3) = fracls*alf*tauh2o*dp |
|
./pkg/fizhi/fizhi_swrad.F |
646 |
OPTHK |
tau(i,j,L,3) = tau(i,j,L,3) + fraccu*tauras*dp |
|
./pkg/fizhi/fizhi_swrad.F |
649 |
OPTHK |
tau(i,j,L,1) = tau(i,j,L,1) + fraccu*tauras*dp |
|
./pkg/fizhi/fizhi_swrad.F |
789 |
SORAD |
_RL dp(m,n,np),wh(m,n,np),oh(m,n,np),scal(m,n,np) |
|
./pkg/fizhi/fizhi_swrad.F |
818 |
SORAD |
dp(i,j,k)=pl(i,j,k+1)-pl(i,j,k) |
|
./pkg/fizhi/fizhi_swrad.F |
819 |
SORAD |
scal(i,j,k)=dp(i,j,k)*(.5*(pl(i,j,k)+pl(i,j,k+1))/300.)**.8 |
|
./pkg/fizhi/fizhi_swrad.F |
829 |
SORAD |
oh(i,j,k)=1.02*oa(i,j,k)*dp(i,j,k)*466.7 |
|
./pkg/fizhi/fizhi_swrad.F |
864 |
SORAD |
call SOLUV (m,n,ndim,np,oh,dp,taucld,tauclb,tauclf,reff,ict,icb |