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 |
!------------------------------------------------------------------- |
!------------------------------------------------------------------- |
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: |