/[lmdze]/trunk/Sources/phylmd/CV_routines/cv_undilute2.f
ViewVC logotype

Diff of /trunk/Sources/phylmd/CV_routines/cv_undilute2.f

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

revision 149 by guez, Wed Apr 29 15:47:56 2015 UTC revision 150 by guez, Thu Jun 18 13:49:26 2015 UTC
# Line 1  Line 1 
1    
2        SUBROUTINE cv_undilute2(nloc,ncum,nd,icb,nk &        SUBROUTINE cv_undilute2(nloc,ncum,nd,icb,nk &
3                               ,tnk,qnk,gznk,t,q,qs,gz &                               ,tnk,qnk,gznk,t,qs,gz &
4                               ,p,dph,h,tv,lv &                               ,p,dph,h,tv,lv &
5                               ,inb,inb1,tp,tvp,clw,hp,ep,sigp,frac)                               ,inb,inb1,tp,tvp,clw,hp,ep,sigp,frac)
6              use cvthermo              use cvthermo
# Line 21  Line 21 
21  ! inputs:  ! inputs:
22        integer, intent(in):: ncum, nd, nloc        integer, intent(in):: ncum, nd, nloc
23        integer icb(nloc), nk(nloc)        integer icb(nloc), nk(nloc)
24        real t(nloc,nd), q(nloc,nd), qs(nloc,nd), gz(nloc,nd)        real t(nloc,nd), qs(nloc,nd), gz(nloc,nd)
25        real p(nloc,nd), dph(nloc,nd)        real p(nloc,nd), dph(nloc,nd)
26        real tnk(nloc), qnk(nloc), gznk(nloc)        real tnk(nloc), qnk(nloc), gznk(nloc)
27        real lv(nloc,nd), tv(nloc,nd), h(nloc,nd)        real lv(nloc,nd), tv(nloc,nd), h(nloc,nd)
Legend:
Removed from v.149  
changed lines
  Added in v.150
  ViewVC Help
Powered by ViewVC 1.1.21