/[lmdze]/trunk/phylmd/CV30_routines/cv30_closure.f
ViewVC logotype

Diff of /trunk/phylmd/CV30_routines/cv30_closure.f

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

trunk/libf/phylmd/CV3_routines/cv3_closure.f90 revision 47 by guez, Fri Jul 1 15:00:48 2011 UTC trunk/phylmd/CV3_routines/cv3_closure.f revision 97 by guez, Fri Apr 25 14:58:31 2014 UTC
# Line 2  Line 2 
2        SUBROUTINE cv3_closure(nloc,ncum,nd,icb,inb &        SUBROUTINE cv3_closure(nloc,ncum,nd,icb,inb &
3                              ,pbase,p,ph,tv,buoy &                              ,pbase,p,ph,tv,buoy &
4                              ,sig,w0,cape,m)                              ,sig,w0,cape,m)
5              use cvparam3              use cv3_param_m
6              use cvthermo              use cvthermo
7        implicit none        implicit none
8    
# Line 14  Line 14 
14    
15    
16  ! input:  ! input:
17        integer ncum, nd, nloc        integer, intent(in):: ncum, nd, nloc
18        integer icb(nloc), inb(nloc)        integer icb(nloc), inb(nloc)
19        real pbase(nloc)        real pbase(nloc)
20        real p(nloc,nd), ph(nloc,nd+1)        real p(nloc,nd), ph(nloc,nd+1)
Legend:
Removed from v.47  
changed lines
  Added in v.97
  ViewVC Help
Powered by ViewVC 1.1.21