TEST_NAM_VARL0_SURF Subroutine

subroutine TEST_NAM_VARL0_SURF(KLUOUT, HNAME, OVAR, OVALUE)

Arguments

Type IntentOptional AttributesName
integer, intent(in) :: KLUOUT
character(len=*), intent(in) :: HNAME
logical, intent(in) :: OVAR
logical, intent(in), optional :: OVALUE

Contents

Source Code


Source Code

      SUBROUTINE TEST_NAM_VARL0_SURF(KLUOUT,HNAME,OVAR,OVALUE)
!
INTEGER,          INTENT(IN)           ::KLUOUT   ! output listing logical unit
 CHARACTER(LEN=*) ,INTENT(IN)           ::HNAME    ! name of the variable to test
LOGICAL          ,INTENT(IN)           ::OVAR     ! variable to test

LOGICAL          ,INTENT(IN), OPTIONAL ::OVALUE   ! possible value
!
END SUBROUTINE TEST_NAM_VARL0_SURF