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

Diff of /trunk/Sources/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 69 by guez, Mon Feb 18 16:33:12 2013 UTC trunk/Sources/phylmd/CV30_routines/cv30_closure.f revision 185 by guez, Wed Mar 16 15:04:46 2016 UTC
# Line 1  Line 1 
1    
2        SUBROUTINE cv3_closure(nloc,ncum,nd,icb,inb &        SUBROUTINE cv30_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 cv3_param_m              use cv30_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.69  
changed lines
  Added in v.185
  ViewVC Help
Powered by ViewVC 1.1.21