gethkt3.F File Reference

#include "implicit_f.inc"
#include "impl1_c.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	gethkt3 (jft, jlt, ht, ir, is, it, mtn)

Function/Subroutine Documentation

gethkt3()

subroutine gethkt3	(	integer	jft,
		integer	jlt,
			ht,
		integer	ir,
		integer	is,
		integer	it,
		integer, intent(in)	mtn )

Definition at line 31 of file gethkt3.F.

C-----------------------------------------------
C   M o d u l e s
C-----------------------------------------------
      USE imp_ktan
      USE imp_ktan_def
C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
C-----------------------------------------------
C   C o m m o n   B l o c k s
C-----------------------------------------------
#include      "impl1_c.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER, INTENT(IN) :: MTN
      INTEGER JFT, JLT  ,IR,IS,IT
C     REAL
      my_real
     .   ht(*)
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER I,MX,J,K
C     REAL
 
      TYPE(L_KTBUFEP_)    , POINTER :: LBUF
      TYPE(MLAW_TAG_)     , POINTER :: MTAG
C-----------------------------------------------
        mtag => ktbuf_str(ng_imp)%MLAW_TAG(mtn)
        lbuf => ktbuf_str(ng_imp)%KTBUFEP(ir,is,it)
        IF (mtag%L_A_KT>0) THEN
         DO i=jft,jlt
          ht(i)= lbuf%A_KT(i)
          IF (ht(i)==one) ht(i)= zero
         ENDDO
        ELSE
         DO i=jft,jlt
          ht(i)= zero
         ENDDO
        END IF
C
      RETURN