/[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

trunk/phylmd/CV_routines/cv_prelim.f90 revision 76 by guez, Fri Nov 15 18:45:49 2013 UTC trunk/phylmd/CV_routines/cv_prelim.f 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 10  Line 10 
10  !=====================================================================  !=====================================================================
11    
12  ! inputs:  ! inputs:
13        integer 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.76  
changed lines
  Added in v.103
  ViewVC Help
Powered by ViewVC 1.1.21