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

Diff of /trunk/phylmd/CV_routines/cv_compress.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 8  Line 8 
8           ,cbmf,plcl,tnk,qnk,gznk &           ,cbmf,plcl,tnk,qnk,gznk &
9           ,t,q,qs,u,v,gz,h,lv,cpn,p,ph,tv,tp,tvp,clw  &           ,t,q,qs,u,v,gz,h,lv,cpn,p,ph,tv,tp,tvp,clw  &
10           ,dph          )           ,dph          )
11              use cvparam              use cv_param
12        implicit none        implicit none
13    
14    
15  ! inputs:  ! inputs:
16        integer, intent(in):: len,ncum,nd,nloc        integer, intent(in):: len,ncum,nd,nloc
17        integer iflag1(len),nk1(len),icb1(len)        integer iflag1(len),nk1(len),icb1(len)
18        real cbmf1(len),plcl1(len),tnk1(len),qnk1(len),gznk1(len)        real, intent(in):: cbmf1(len),plcl1(len),tnk1(len),qnk1(len),gznk1(len)
19        real, intent(in):: t1(len,nd)        real, intent(in):: t1(len,nd)
20        real, intent(in):: q1(len,nd),qs1(len,nd),u1(len,nd),v1(len,nd)        real, intent(in):: q1(len,nd),qs1(len,nd),u1(len,nd),v1(len,nd)
21        real gz1(len,nd),h1(len,nd),lv1(len,nd),cpn1(len,nd)        real gz1(len,nd),h1(len,nd),lv1(len,nd),cpn1(len,nd)
22        real p1(len,nd),ph1(len,nd+1),tv1(len,nd),tp1(len,nd)        real, intent(in):: p1(len,nd),ph1(len,nd+1),tv1(len,nd),tp1(len,nd)
23        real tvp1(len,nd),clw1(len,nd)        real tvp1(len,nd),clw1(len,nd)
24    
25  ! outputs:  ! outputs:
Legend:
Removed from v.102  
changed lines
  Added in v.103
  ViewVC Help
Powered by ViewVC 1.1.21