/[lmdze]/trunk/Sources/phylmd/CV30_routines/cv30_prelim.f
ViewVC logotype

Diff of /trunk/Sources/phylmd/CV30_routines/cv30_prelim.f

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

trunk/libf/phylmd/CV3_routines/cv3_prelim.f90 revision 47 by guez, Fri Jul 1 15:00:48 2011 UTC trunk/phylmd/CV3_routines/cv3_prelim.f90 revision 76 by guez, Fri Nov 15 18:45:49 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 13  Line 13 
13    
14  ! inputs:  ! inputs:
15        integer len, nd, ndp1        integer len, nd, ndp1
16        real t(len,nd), q(len,nd), p(len,nd), ph(len,ndp1)        real, intent(in):: t(len,nd)
17          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.47  
changed lines
  Added in v.76
  ViewVC Help
Powered by ViewVC 1.1.21