phylmd/CV_routines/cv_trigger.f


      SUBROUTINE cv_trigger(len,nd,icb,cbmf,tv,tvp,iflag)
            use cv_param
      implicit none

!-------------------------------------------------------------------
! --- Test for instability.
! --- If there was no convection at last time step and parcel
! --- is stable at icb, then set iflag to 4.
!-------------------------------------------------------------------


! inputs:
       integer, intent(in):: len, nd, icb(len)
       real, intent(in):: cbmf(len), tv(len,nd), tvp(len,nd)

! outputs:
       integer iflag(len) ! also an input

! local variables:
       integer i


      do 390 i=1,len
        if((cbmf(i).eq.0.0) .and.(iflag(i).eq.0).and. &
        (tvp(i,icb(i)).le.(tv(i,icb(i))-dtmax)))iflag(i)=4
 390  continue

      return
      end
1	guez	52
2			SUBROUTINE cv_trigger(len,nd,icb,cbmf,tv,tvp,iflag)
3	guez	103	use cv_param
4	guez	52	implicit none
5
6			!-------------------------------------------------------------------
7			! --- Test for instability.
8			! --- If there was no convection at last time step and parcel
9			! --- is stable at icb, then set iflag to 4.
10			!-------------------------------------------------------------------
11
12
13			! inputs:
14	guez	97	integer, intent(in):: len, nd, icb(len)
15	guez	103	real, intent(in):: cbmf(len), tv(len,nd), tvp(len,nd)
16	guez	52
17			! outputs:
18			integer iflag(len) ! also an input
19
20			! local variables:
21			integer i
22
23
24			do 390 i=1,len
25			if((cbmf(i).eq.0.0) .and.(iflag(i).eq.0).and. &
26			(tvp(i,icb(i)).le.(tv(i,icb(i))-dtmax)))iflag(i)=4
27			390 continue
28
29			return
30			end