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