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

Diff of /trunk/phylmd/CV_routines/cv_prelim.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_prelim(len,nd,ndp1,t,q,p,ph &        SUBROUTINE cv_prelim(len,nd,ndp1,t,q,p,ph &
3                            ,lv,cpn,tv,gz,h,hm)                            ,lv,cpn,tv,gz,h,hm)
4              use cvthermo              use cvthermo
5              use cvparam              use cv_param
6        implicit none        implicit none
7    
8  !=====================================================================  !=====================================================================
# Line 12  Line 12 
12  ! inputs:  ! inputs:
13        integer, intent(in):: len, nd, ndp1        integer, intent(in):: len, nd, ndp1
14        real, intent(in):: t(len,nd)        real, intent(in):: t(len,nd)
15        real q(len,nd), p(len,nd), ph(len,ndp1)        real, intent(in):: q(len,nd), p(len,nd), ph(len,ndp1)
16    
17  ! outputs:  ! outputs:
18        real lv(len,nd), cpn(len,nd), tv(len,nd)        real lv(len,nd), cpn(len,nd), tv(len,nd)
Legend:
Removed from v.102  
changed lines
  Added in v.103
  ViewVC Help
Powered by ViewVC 1.1.21