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

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

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

trunk/libf/phylmd/CV3_routines/cv3_trigger.f90 revision 72 by guez, Tue Jul 23 13:00:07 2013 UTC trunk/Sources/phylmd/CV30_routines/cv30_trigger.f revision 185 by guez, Wed Mar 16 15:04:46 2016 UTC
# Line 1  Line 1 
1    
2        SUBROUTINE cv3_trigger(len,nd,icb,plcl,p,th,tv,tvp &        SUBROUTINE cv30_trigger(len,nd,icb,plcl,p,th,tv,tvp &
3                        ,pbase,buoybase,iflag,sig,w0)                        ,pbase,buoybase,iflag,sig,w0)
4              use cv3_param_m              use cv30_param_m
5        implicit none        implicit none
6    
7  !-------------------------------------------------------------------  !-------------------------------------------------------------------
# Line 21  Line 21 
21    
22    
23  ! input:  ! input:
24        integer len, nd        integer, intent(in):: len, nd
25        integer icb(len)        integer icb(len)
26        real plcl(len), p(len,nd)        real, intent(in):: plcl(len), p(len,nd)
27        real th(len,nd), tv(len,nd), tvp(len,nd)        real th(len,nd), tv(len,nd), tvp(len,nd)
28    
29  ! output:  ! output:
Legend:
Removed from v.72  
changed lines
  Added in v.185
  ViewVC Help
Powered by ViewVC 1.1.21