INTERFACE
SUBROUTINE RRTM_KGB1(DIRECTORY)
CHARACTER(LEN=*), INTENT(IN) :: DIRECTORY
END SUBROUTINE RRTM_KGB1
END INTERFACE