/[lmdze]/trunk/phylmd/CV3_routines/cv3_prelim.f
ViewVC logotype

Diff of /trunk/phylmd/CV3_routines/cv3_prelim.f

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

revision 52 by guez, Fri Sep 23 12:28:01 2011 UTC revision 69 by guez, Mon Feb 18 16:33:12 2013 UTC
# Line 1  Line 1 
1    
2        SUBROUTINE cv3_prelim(len,nd,ndp1,t,q,p,ph &        SUBROUTINE cv3_prelim(len,nd,ndp1,t,q,p,ph &
3                            ,lv,cpn,tv,gz,h,hm,th)                            ,lv,cpn,tv,gz,h,hm,th)
4              use cvparam3              use cv3_param_m
5              use cvthermo              use cvthermo
6        implicit none        implicit none
7    
# Line 14  Line 14 
14  ! inputs:  ! inputs:
15        integer len, nd, ndp1        integer len, nd, ndp1
16        real, intent(in):: t(len,nd)        real, intent(in):: t(len,nd)
17        real q(len,nd), p(len,nd), ph(len,ndp1)        real, intent(in):: q(len,nd)
18          real p(len,nd), ph(len,ndp1)
19    
20  ! outputs:  ! outputs:
21        real lv(len,nd), cpn(len,nd), tv(len,nd)        real lv(len,nd), cpn(len,nd), tv(len,nd)
Legend:
Removed from v.52  
changed lines
  Added in v.69
  ViewVC Help
Powered by ViewVC 1.1.21