yasmi_khione.f

Go to the documentation of this file.

!                       ***********************
                        SUBROUTINE yasmi_khione
!                       ***********************
     &  (yasmi)
!
!
!***********************************************************************
! TELEMAC2D   V8P1
!***********************************************************************
!
!brieF tells which tracers will have implicit source terms
!
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!| YASMI          |<--| LOGICS FOR IMPLICIT SOURCE TERMS
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!
      USE bief
      USE declarations_special
      USE declarations_khione, ONLY : thermal_budget, itgm, 
     & nc_fra, ind_fra, ind_t
!
      IMPLICIT NONE
!
!+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
!
!
      LOGICAL, INTENT(INOUT)::  YASMI(*)
!
!+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
!
      INTEGER :: K, J
!
!-----------------------------------------------------------------------
!
      IF(thermal_budget) THEN
        IF(itgm.EQ.2) THEN
          yasmi(ind_t) = .true.
          DO k=1,nc_fra
            j = ind_fra+k-1
            yasmi(j) = .true.
          ENDDO
        ENDIF
      ENDIF
!
!-----------------------------------------------------------------------
!
      RETURN
      END