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

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

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

trunk/phylmd/CV_routines/cv_undilute2.f90 revision 76 by guez, Fri Nov 15 18:45:49 2013 UTC trunk/phylmd/CV_routines/cv_undilute2.f revision 103 by guez, Fri Aug 29 13:00:05 2014 UTC
# Line 4  Line 4 
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
7              use cvparam              use cv_param
8        implicit none        implicit none
9    
10  !---------------------------------------------------------------------  !---------------------------------------------------------------------
# Line 19  Line 19 
19    
20    
21  ! inputs:  ! inputs:
22        integer 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), q(nloc,nd), qs(nloc,nd), gz(nloc,nd)
25        real p(nloc,nd), dph(nloc,nd)        real p(nloc,nd), dph(nloc,nd)
Legend:
Removed from v.76  
changed lines
  Added in v.103
  ViewVC Help
Powered by ViewVC 1.1.21