The TELEMAC-MASCARET system  trunk
yasmi_khione.f
Go to the documentation of this file.
1 ! ***********************
2  SUBROUTINE yasmi_khione
3 ! ***********************
4  & (yasmi)
5 !
6 !
7 !***********************************************************************
8 ! TELEMAC2D V8P1
9 !***********************************************************************
10 !
11 !brieF tells which tracers will have implicit source terms
12 !
13 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
14 !| YASMI |<--| LOGICS FOR IMPLICIT SOURCE TERMS
15 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
16 !
17  USE bief
20  & nc_fra, ind_fra, ind_t
21 !
22  IMPLICIT NONE
23 !
24 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
25 !
26 !
27  LOGICAL, INTENT(INOUT):: YASMI(*)
28 !
29 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
30 !
31  INTEGER :: K, J
32 !
33 !-----------------------------------------------------------------------
34 !
35  IF(thermal_budget) THEN
36  IF(itgm.EQ.2) THEN
37  yasmi(ind_t) = .true.
38  DO k=1,nc_fra
39  j = ind_fra+k-1
40  yasmi(j) = .true.
41  ENDDO
42  ENDIF
43  ENDIF
44 !
45 !-----------------------------------------------------------------------
46 !
47  RETURN
48  END
subroutine yasmi_khione(YASMI)
Definition: yasmi_khione.f:6
Definition: bief.f:3