Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
integer, | intent(in) | :: | KLUOUT | |||
character(len=*), | intent(in) | :: | HNAME | |||
logical, | intent(in) | :: | OVAR | |||
logical, | intent(in), | optional | :: | OVALUE |
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