/[lmdze]/trunk/libf/phylmd/cv_routines.f
ViewVC logotype

Diff of /trunk/libf/phylmd/cv_routines.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 3 by guez, Wed Feb 27 13:16:39 2008 UTC revision 12 by guez, Mon Jul 21 16:05:07 2008 UTC
# Line 1329  c inputs Line 1329  c inputs
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)
# Line 1386  c   ***  Calculate surface precipitation Line 1386  c   ***  Calculate surface precipitation
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
Legend:
Removed from v.3  
changed lines
  Added in v.12
  ViewVC Help
Powered by ViewVC 1.1.21