1329 |
integer ncum, nd, nloc |
integer ncum, nd, nloc |
1330 |
integer nk(nloc), icb(nloc), inb(nloc) |
integer nk(nloc), icb(nloc), inb(nloc) |
1331 |
integer nent(nloc,nd) |
integer nent(nloc,nd) |
1332 |
real delt |
real, intent(in):: delt |
1333 |
real t(nloc,nd), q(nloc,nd), u(nloc,nd), v(nloc,nd) |
real t(nloc,nd), q(nloc,nd), u(nloc,nd), v(nloc,nd) |
1334 |
real gz(nloc,nd) |
real gz(nloc,nd) |
1335 |
real p(nloc,nd), ph(nloc,nd+1), h(nloc,nd) |
real p(nloc,nd), ph(nloc,nd+1), h(nloc,nd) |
1386 |
c |
c |
1387 |
do 1190 i=1,ncum |
do 1190 i=1,ncum |
1388 |
if(iflag(i).le.1)then |
if(iflag(i).le.1)then |
|
cc precip(i)=precip(i)+wt(i,1)*sigd*water(i,1)*3600.*24000. |
|
|
cc & /(rowl*g) |
|
|
cc precip(i)=precip(i)*delt/86400. |
|
1389 |
precip(i) = wt(i,1)*sigd*water(i,1)*86400/g |
precip(i) = wt(i,1)*sigd*water(i,1)*86400/g |
1390 |
endif |
endif |
1391 |
1190 continue |
1190 continue |