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

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

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

revision 102 by guez, Fri Apr 25 14:58:31 2014 UTC revision 103 by guez, Fri Aug 29 13:00:05 2014 UTC
# Line 2  Line 2 
2        SUBROUTINE cv_undilute1(len,nd,t,q,qs,gz,p,nk,icb,icbmax &        SUBROUTINE cv_undilute1(len,nd,t,q,qs,gz,p,nk,icb,icbmax &
3                               ,tp,tvp,clw)                               ,tp,tvp,clw)
4              use cvthermo              use cvthermo
5              use cvparam              use cv_param
6        implicit none        implicit none
7    
8    
# Line 10  Line 10 
10        integer, intent(in):: len, nd        integer, intent(in):: len, nd
11        integer nk(len), icb(len), icbmax        integer nk(len), icb(len), icbmax
12        real, intent(in):: t(len,nd)        real, intent(in):: t(len,nd)
13        real q(len,nd), qs(len,nd), gz(len,nd)        real, intent(in):: q(len,nd), qs(len,nd), gz(len,nd)
14        real p(len,nd)        real, intent(in):: p(len,nd)
15    
16  ! outputs:  ! outputs:
17        real tp(len,nd), tvp(len,nd), clw(len,nd)        real tp(len,nd), tvp(len,nd), clw(len,nd)
Legend:
Removed from v.102  
changed lines
  Added in v.103
  ViewVC Help
Powered by ViewVC 1.1.21