/[lmdze]/trunk/libf/phylmd/CV3_routines/cv3_compress.f90
ViewVC logotype

Diff of /trunk/libf/phylmd/CV3_routines/cv3_compress.f90

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

revision 51 by guez, Fri Jul 1 15:00:48 2011 UTC revision 52 by guez, Fri Sep 23 12:28:01 2011 UTC
# Line 21  Line 21 
21        integer iflag1(len),nk1(len),icb1(len),icbs1(len)        integer iflag1(len),nk1(len),icb1(len),icbs1(len)
22        real plcl1(len),tnk1(len),qnk1(len),gznk1(len)        real plcl1(len),tnk1(len),qnk1(len),gznk1(len)
23        real pbase1(len),buoybase1(len)        real pbase1(len),buoybase1(len)
24        real t1(len,nd),q1(len,nd),qs1(len,nd),u1(len,nd),v1(len,nd)        real, intent(in):: t1(len,nd)
25          real q1(len,nd),qs1(len,nd),u1(len,nd),v1(len,nd)
26        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)
27        real p1(len,nd),ph1(len,nd+1),tv1(len,nd),tp1(len,nd)        real p1(len,nd),ph1(len,nd+1),tv1(len,nd),tp1(len,nd)
28        real tvp1(len,nd),clw1(len,nd)        real tvp1(len,nd),clw1(len,nd)
Legend:
Removed from v.51  
changed lines
  Added in v.52
  ViewVC Help
Powered by ViewVC 1.1.21