1 |
|
|
2 |
SUBROUTINE cv_trigger(len,nd,icb,cbmf,tv,tvp,iflag) |
SUBROUTINE cv_trigger(len,nd,icb,cbmf,tv,tvp,iflag) |
3 |
use cvparam |
use cv_param |
4 |
implicit none |
implicit none |
5 |
|
|
6 |
!------------------------------------------------------------------- |
!------------------------------------------------------------------- |
12 |
|
|
13 |
! inputs: |
! inputs: |
14 |
integer, intent(in):: len, nd, icb(len) |
integer, intent(in):: len, nd, icb(len) |
15 |
real cbmf(len), tv(len,nd), tvp(len,nd) |
real, intent(in):: cbmf(len), tv(len,nd), tvp(len,nd) |
16 |
|
|
17 |
! outputs: |
! outputs: |
18 |
integer iflag(len) ! also an input |
integer iflag(len) ! also an input |