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

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

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

trunk/libf/phylmd/CV3_routines/cv3_undilute2.f90 revision 47 by guez, Fri Jul 1 15:00:48 2011 UTC trunk/phylmd/CV3_routines/cv3_undilute2.f revision 97 by guez, Fri Apr 25 14:58:31 2014 UTC
# Line 4  Line 4 
4                               ,p,h,tv,lv,pbase,buoybase,plcl &                               ,p,h,tv,lv,pbase,buoybase,plcl &
5                               ,inb,tp,tvp,clw,hp,ep,sigp,buoy)                               ,inb,tp,tvp,clw,hp,ep,sigp,buoy)
6        use conema3_m        use conema3_m
7              use cvparam3              use cv3_param_m
8              use cvthermo              use cvthermo
9        implicit none        implicit none
10    
# Line 28  Line 28 
28    
29    
30  ! inputs:  ! inputs:
31        integer ncum, nd, nloc        integer, intent(in):: ncum, nd, nloc
32        integer icb(nloc), icbs(nloc), nk(nloc)        integer icb(nloc), icbs(nloc), nk(nloc)
33        real t(nloc,nd), q(nloc,nd), qs(nloc,nd), gz(nloc,nd)        real t(nloc,nd), q(nloc,nd), qs(nloc,nd), gz(nloc,nd)
34        real p(nloc,nd)        real p(nloc,nd)
Legend:
Removed from v.47  
changed lines
  Added in v.97
  ViewVC Help
Powered by ViewVC 1.1.21